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IDENTIFICATION 


PRODUCT CODE: AC-S072B-MC 

PRODUCT NAME: CZRMVBO RM05/3/2 EXTENDED DRIVE TEST 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE wWITHCUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
MO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR "HE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPCRA! ION 


SEQ 000° 


CZRMVBO RMOS/3/2 EXT’D OR TST 


OD NONE WN 20 OONAUE Uy 4 


a ed oe ot ot a 


c 1 
MACRO v046.00 4-APR-B1 11:57:12 PAGE 2 


9. 


CONTENTS 


ABSTRACT 
REQUIREMENTS 
2.1 EQUIPMENT 
2.2 PRELIMINARY PROGRAMS 
2.3 MEDIA 
LOADING PROCEDURE 
STARTING PROCEDURE 
4.1 STARTING ADDRESSES 
4.2 OPERATOR ACTION 
4.3 PROGRAM ACTION 
4.3.1 CONTROL SWITCH SELECTION 
4.3.2 RH11 - RH70 ADDRESS SELECTION 
2:3:3 DRIVE AND PARAMETER SELECTION 
OPERATING PROCEDURE 


5.1 OPERATIONAL SWITCH SETTINGS 
5.2 CONTROL SWITCH SETTINGS 


ERRORS 


6.1 ERROR TYPES 
6.2 ERROR RECOVERY 


RESTRICTIONS 
MISCELLANEOUS 
8.1 EXECUTION TIME 
8.2 STACK POINTER 
8.3 TIMING TEST (TESTS 12 - 15) PRINTOUTS 
8.4 END OF TEST 


PROGRAM DESCRIPTION 


10. PROGRAM LISTING 


SEQ 000. 


~ CZRMVBC RIOS/3/2 EXT'D DR TST 


OOWNOALWA ($0 O@ NOU PU 


RIPQAQ <8 at et et a st me 
— 


0.1 
MACRO v0G.00 4-APR=-81 11:57:12 PAGE 3 


Ro 
e 


SEQ 000“ 


ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THF DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMCS 
ARE WITHIN “OLERANCE AND THAT THE TRACK/SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


REQUIREMENTS 


EQUIPMENT 


PDP=11 PROCESSOR 

12K MEMORY 

TELETYPE 

PROGRAM LOADING DEVICE 

KWI1l-L OR KW11-P (THE KWI1-P 1S REQUIRED FOR THE TIMING TESTS) 
RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5°S, RMO3°S OR RMO2*S) 


PRELIMINARY PROGRAMS 

RMO5/3/2 DISKLESS TEST, PART 1 & ¢ 

RMOS/3/2 FUNCTIONAL TEST. PART 1, 2 & 3 

MEDIA 

THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-817 OR 18-817 
MODE. DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 


ee TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 
K ° 


LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP* MEDIA USING THE 
ASSOCIATED LOADER. 


STARTING PROCEDURE 


STARTING ADDRESSES 
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CZRMVBO RMOS/3/2 EXT’D OR TST MACRO V04.00 4-APR-81 11:57:12 PAGE 3-1 


SEQ 0004 
58 200 NORMAL STARTING ADDRESS 
59 204 SELECT OPERATING PARAMETERS 
69 210 SELECT RH11=-RH70 ADDRESSES 
re 214 COMBINATION OF 204 AND 210 
6 
63 NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 
64 PROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE 
: TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 
oa 4.2 OPERATOR ACTION 
o9 1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 
70 2. LOAD A FORMATTED PACK IN’O DRIVE(S) TO BE TESTED 
71 3. BRING DRIVE(S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON PORT. 
72 4. LOAD ADDRESS 200. 
73 5. SET SWITCHES (SEE SECTION 5.) 
74 6. PRESS START. 
75 7. THE PROGRAM WILL TYPEOQUT THE STATUS OF THE DRIVES ATTACHED TO 
76 THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THiS TYPEOUT, DO NOT 
77 RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTFAD 
78 TYPE A "CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO 
= COMMAND ENTRY MODE. 
a 4.3 PROGRAM ACTION 
83 IN AN EFFORT TC ALLOW CONVERSATION WITH A PROGRAM FOR THE 
& PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWIAG 
2 CONSTRUCTIONS HAVE BEEN ADOPTED. 
87 NOTE1. IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
ou NOT TYPED BY THE USER. 
90 NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED 6Y 
at <C(R> AND WILL BE ECHOED AS A “CARRIAGE RETURN-LINE FEED’. 
2 <.><CR> PERIOD 
95 A STATEMENT TERMINATOR: WHEN TYPED AT THE 
9% END OF A LINE (LEGAL ON ALL LINES) IT TELLS 
97 THE PARAMETER STRING INTERPRETER (PSI) THIS iS 
98 THE END OF CHANGES TO THE CURRENT PARAMETER 
99 STRING. 
100 
He <..><fR> PERIOD PERIOD 
103 THE ‘PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
104 THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
ed THE START OF TEST EXECUTION. 
ine «,><CR> COMMA 
109 THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
Lo AND TEST NUMBERS. 
as </> SLASH 
114 A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 
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4.3.1 


4.3.2 


NUMBER, THE PROGRAM WILL OPEN THA! TEST FOR PARAME - » 
MODIFICATION. 


<“U> CONTROL =U 


DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE ‘‘CONTROL KEY’ 
(CTRL) AND THEN STRIKING THE °U"'. 


<\> RUBOUT 


DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE ‘'RUBOUT’’ KEY. WHICH WILL 
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCH SELECTION 


STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SW<O7>=1 WILL RESULT IN ENTERING THE "‘CONTROL SWITCH 
SETTING’ MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF ‘'C.SWR’'. 


CONTROL SWITCH SELECTION EXAMPLES: 
EXAMPLE #1 


SET SwW<07>=0 
C.SWR=000000 / 400.. 


EXAMPLE #2 


SET SW<07>=0 
C.SWR=000000 / 220. 
C.SWR=000000 / 220.. 


RH11 = RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1), 
VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70. 

1F THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPOND 
(TIMES OUT) WHEN ADDRESSED, AN ERROR 1S REPORTED. 

AFTER THE ERROR IS REPORTED ONE OF TWO COUKSES C* AC™ION 
WILL BE TAKEN: 


1. IF THERE IS A MONITOR ~- RETURN TO THE MONITOR 

2. IF THERE ISN'T A MONITOR -- ASK FOR NEW ADDRESSES 
STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
Me Ree THE ADDRESS QF [HE RH11 OR RH70 AND THE VECTOR 
ADDRESS. 


ADDRESS SELECTION EXAMPLES 
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SEQ 000+ 


EXAMPLE #1 
RMCS1=176700 / 177200. 
EXAMPLE #2 


RMCS1=176700_/ 176300<CR> 
RMVEC=254 / 260<CR> 


EXAMPLE #3 


RMCS1=176700<CR> 
RMVEC=254 / 260. 


EXAMPLE #4 


RH/RM FAILED TO RESPOND TO ADDRESSING 
RMCS1 sae a 

176300 _XXXX 

RMCS1= 176300. y 176700. 


EXAMPLE #5 


RMCS1=176700 / 1776\67\6300<CR> 
RMVEC=254<CR> 
RMCS1=176300. 


DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXFCUTED, 
AND THE PARAMETERS TO USE. 


EACH TEST core TWO SETS OF TRACK LIMIT PARAMCTERS. PARAMETERS 
ee ners 2 "'IT'’ ARE USED BY _RMO3/2 DRIVES AND PARAMETERS “LT*"* 
"ET" AND * te ARE USED BY RMOS DRIVES. THE PROGRAM DETERMINES WHICH 
ORIVF IS BEING TESTED AND SELECTS THE CORRECT SET OF TRACK LIMIT 
VALUES. IF THE PROGRAM IS BEING USED TO TEST A_SUBSYSTEM WHICH 
CONTAINS BOTH RMO3/2 AND RMOS DRIVES, THE OPERATOR MUST CHANGE 

BOTH SETS OF TRACK LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 

ALL DRIVES TESTED. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PS!. 


Ae REPEATS (ITERATIONS) 

a FIRST CYLINDER ADDRESS 

: LAST CYLINDER ADDRESS 

; INCREMENT CYLINDER 

Y FIRST TRACK ADDRESS 
LAST TRACK ADDRESS 

: INCREMENT TRACK 
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“FT''' FIRST TRACK ADDRESS ZRMOS PARAMETER 
“LT''' LAST TRACK ADDRESS 7RMOS PARAMETER 
“TT''' INCREMENT TRACK ZRMOS PARAMETER 
FS FIRST SECTOR ADDRESS 

ES LAST SECTOR ADDRESS 

"PAI'' PATTERN (USED FOR DATA TEST) 

"WDx'’ WORD OF PATTERN 9 WHERE xX IS 1 TO 16 
wisi? ALL SEEK TESTS (TESTS 0 - 10) 

Tt ALL TIMING TESTS (TESTS 12 = 15) 

eA ALL ADDRESS TESTS (TESSS 16 = 17) 

ep THE DATA TEST (TEST 20) 

an THE EXERCISER (TEST 21) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 


NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WDX) SELECTION. ‘PAT’ WILL BE SELECTED BY 
A BIT (J.E. 001000(8)=PATTERN 9) AND 'WDX'' WILL BE IN OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


IF <..> IS TYPED WHILE A TEST 1S OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE *‘TEST COMMAND’’ STRING 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


P 
WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 21), TESTS 0-10, 
12,13,15-20 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE 
OPERATOR WISHES TO SELE€T THE DRIVES TO BE TESTED, THE TESTS TO BE 
PERFORMED, OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY 
BE ENTERED BY TYPING A ‘CONTROL C* OR BY STARTING THE PROGRAM FROM 
EITHER LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 
DRIVE (S)= 


THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 

DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOFS NOT DESIRE TO CHANGE 
THE PARAMETERS (INITIAL CYLINDER ADDRESS, FINAL CYLINDER ADDRESS, ETC.). 
THE USER WOULD TYPE '3<CR>' WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 


THE TRANSACTION APPEARS AS FOLLOWS: 
DRIVE (S)=3<CR> 
TEST= 


THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE, 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<,> (THE ‘COMMA’ 
SEPARATES ENTRIES), 11<.><CR> ('PERIOD' ‘CARRIAGE RETURN' - 

END OF CHANGES, START TEST EXECUTION.) 


17 NOW LOOKS LIKE THIS 


SEG O00 
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SEQ 0008 
286 DRIVE (S)=3<CR> 
add TEST=2=7,11.<CR> 
289 IN THE NEXT EXAMPLE, IT IS ASSUMED THA’ THE OPERATOR WISHES TO TEST 
290 . DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
aa FOR TESTS 3 AND 10. 
oa THE TRANSACTION WOULD BE AS FOLLOWS: 
295 DRiVE‘S)=4<CR> 
se TEST= 
298 THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
299 GIVEN BELOW: 
300 
301 DRIVE (S$) =4<CR> 
30¢ TEST=1,3/4-7,10/11<CR> 
304 NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>; 
305 SELECT TESTS 4-7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST 
Ei 11, END OF INPUT <.>. 
308 THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT Tht 
309 PARAMETERS FOR TEST 3 AND TES! 10 ARE TO BE CHANGED. THE OTHER 
ae TESTS WILL NOT BE ALTERED. 
315 (THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 
314 DRIVE (S)=4<CR> 
315 TEST=1,3/4-7,10/11<CR> 
316 TEST 3 
ae R=X / WHERE xX IS ITERATION 
319 THE NEW VALUE FOR °R' MAY BE ENTERED. TERMINATING THE ENTRY WITH 
320 A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
321 <CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
32¢ TO MOVE TO THE NEXT PARAMETER. 
324 DRIVE (S)=4<CR> 
325 TEST=1, 3/4~7,10/11<CR> 
326 TEST 3 
327 R=1 / <CR> :DO NOT ALTER-BUT CONTINUE 
ae FC=N / sWHERE ‘N' IS FIRST CYLINDER ADDRESS 
339 IF THE OPERATOR DOES NOT WISH TO CHANGE 'FC*, THE FOLLOWING OCCURS: 
332 DRIVE (S)=4<CR> 
333 TEST=1,3/4=7, 10/11.<CR> 
334 TEST 3 
335 R=1 / <CR> :DO NOT ALTER THIS LINE SUT CONTINUE 
336 FC=0 / <CR> :DO NOT ALTER THIS LINE BUT CONTINUE 
zee LC=822 / 
339 THE PROGRAM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST 
340 CYLINDER ADDRESS IN THIS CASE USING 822 AS THE EXAMPLE. THIS IS 
Kl WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS 


342 OPENED. TO CHANGE THE VALUE TO °20', THE NEW VALUE IS 7YPED 


cnr 
a re 
+ 
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4.3.3.2 


SEQ 0009 
FOLLOWED BY A 'PERIOD' TERMINATOR (<,><CR>). 
THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE (S)=4<CR> 
TEST Tage endn JOCUISER: 


R=1 
FC20 / 
LC= 822° ; 30. <CR> 

TEST 10 

R=1 / 

THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM IS WAITING FOR CHANGES 'O TEST 10°S PARAMETERS. 


DRIVE (S)=4<CR> 
TEST=1,3/4-7,10/11<CR> 
TEST 3 


LC= 822 / 20.<CR> 
TEST 10 
R=1 / 10.<CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A "PERIOD’® "CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 117 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE(S) = 


SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A "PERIOD PERIOD’, 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 

CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, A 

<,><CR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER 

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 

THE PROGRAM, A ‘PERIOD PERIOD" MUST BE TYPED. 


IF A SINGLE ‘PERIOD’ IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING 
ENTERED, THE PROGRAM WILL START EXECHITION IMMEDIATELY. A ‘PERIOD 
PERIOD’ MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 
CHANGE MODE TO GO TO FXECUTION. 


DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 

DRIVE=4.<CR> SSELECT DRIVE 44, TERMINATE AND 
TBEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
PARAMETERS 

EXAMPLE #2 
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CR> 
Be SLU IOISER? 


/ <CR> 
0 / 10.<CR> 


CRIVE=0<CR> 
TEST=S,E.<CR> 


EXAMPLE #5 


seooeeneoewe 


DRIVE=1<CR> 
TEST=S/D<CR> 
TEST 0 
R=10 / <CR> 
Fc=0 / 10..<CR> 


EXAMPLE #6 


eeeweocewwre 


DRIVE=1<CR> 
TEST=S/<CR> 


TEST 0 
peu / 100.<CR> 


TEST 

R=100 / 1000.<CR> 
TEST 2 

R=1 / 10<CR> 

FC=0 / SO<CR> 

LC=822 / 51.<CR> 
TEST 3 

R=1.<CR> 
TEST 4 

R=1..<CR> 


SEQ 0010 


;SELECT DRIVE 40 AND MAKE CHANGES °’,*’ 
[RUN TEST 1 THRU 5 ONLY, USE DEF AULT 
SPARAMETERS AND TERMINATE AND EXECUTE.°’ 


SELECT DRIVE 42 AND MAKE CHANGES °',"' 

SRUN TEST 1-5 WITH DEFAULT PARAMETERS, OPEN 
Test 6,7 AND 10 FOR CHANGES 

LEAVE 'R' AS IS AMD MOVE TO NEXT PARAMETER 
SET OFC’ gc ADDRESS 'O 10, END CHANGES 


350 ITERATIONS, MOVE TO NEXT PARAMETER 

3DO NOT CHANGE ‘FC’ CYLINDER ADDRESS BUT CONTINUE 
sTEST 10 IS STILL PENDING AND WILL BE 

RETAIN ITS PRESENT PARAMETERS. 


SELECT DRIVE #0 AND MAKE CHANGES 
RUN ALL SEEK TESTS AND THE EXERCISER 


;RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
THE DATA TEST (WITH DEFAULT PARAMETERS). 
RUN WITH 10 ITERATIONS 

CHANGE FIRST CYLINDER ADDRESS 

ZAND START EXECUTION 

3TESTS 1 ~ 10 WILL RETAIN THEIR PREVIOUSLY 
ZASSIGNED PARAMETERS. 


7OPEN THE SEEK TESTS (TESTS 0-19) 

CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 
CHANGE 'R' TO 1000 ITERATIONS, MOVE TO NEXT TEST 
CHANGE 'R' TO 10 ITERATIONS, GO TO NEXT PARAMETER 
CHANGE 'FC' TO 50, GO TO NEXT PARAMETER 

CHANGE ‘LC' TO 51, GO TO THE NEXT TEST 

s;MOVE TO NEXT TEST 


USE TEST 4'S PARAMETERS AND STAR™ PROGRAM EXECUTION 
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SEQ 001° 
457 
458 EXAMPLE #7 
B59 a a a ae 
460 
461 DRIVE=1<CR> 
| 662 TEST=D/<CR> =SELECT AND OPEN THE DATA TEST 
463 TEST 20 
464 R=1 / 1000<CR> :DO 1000 ITERATION OF TEST PATTERN 
465 FC=0 / 10<CR> “#8 ON CYLINDER 10, TRACK 2, SECTOR 4 
466 LC=822 / 10<CR> 
467 1¢=64 / O<CR> 
468 FT=0 / 2<CR> 
469 LT=4 / 2<CR> 
470 IT=1 / <CR> 
471 FT'=0 / 2<CR> :RMOS PARAMETER 
472 LT'=18 / 2<CR> “RMOS PARAMETER 
473 IT'=1 / <CR> “RMO5 PARAMETER 
474 FS=0 / 4<CR> 
475 LS=22 / 4<CR> 
476 PAT=177777 / 400..<CR> ;RUN WITH PATTERN #8 
478 EXAMPLE #8 
i 
480 
- 481 DRIVE=1<CR> SUSE THE SAME PARAMETERS AS IN EXAMPLE 
482 TEST=D/<CR> +#7, BUT ALSO SPECIFY A DATA PATTERN (PAT 40). 
483 TEST 20 
484 R=1000 / <CR> 
485 FC=10 / <CR> 
486 LC=10 / <C€R> 
487 1c=0 / <CR> 
488 FT=2 / <CR> 
489 LT=2 / <CR> 
490 IT=1 / <C€R> 
491 FT'=0 / 2<CR> :RMOS PARAMETER 
492 LT'=18 / 2<CR> *RMOS PARAMETER 
493 IT*=1 / <CR> SRMOS PARAMETER 
494 FS=4 / <CR> 
495 LS=4 / <CR> 
496 PAT=000600 / 401<CR> ;RUN WITH PATTERNS #8 & 40 (O-OPERATOR INPUT) 
497 wD1=165555 / 125252<CR> ;FIRST WORD OF PATTERN 0 
498 WD2=133333 / 52525..<CR> ;SECOND WORD OF PATTERN 0 
499 i<..> START EXECUTION 
501 EXAMPLE #9 
S02 a a 
503 
504 DRIVE=0,1,4<CR> :TEST DRIVES 0. 1, AND 4 IN SEQUENCE 
505 TEST=0~5/<CR> [CHANGE TEST 5 
506 TEST 0 
507 R=10 / <CR> 
508 FC=0 / <CR> 
509 1 (=B822 / 1..<CR> CHANGE LAST CYLINDER FROM 822 TO 1 
510 “START PROGRAM EXECUTION. 
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5.2 


SWITCH SETTINGS 


OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 

AND WILL USE A "SOFTWARE' SWITCH REGISTER. THF ‘SOFTWARE’ SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE’ 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A ‘CONTROL G‘. THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G’ 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS _ IN KEYBOARD ENTRY MODE, OR 

IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE ‘SOFTWARE’ 
SWITCH VALUES ARE ENTERE® AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. ‘RUBOUT’ 
RS TEA CMR U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARC" SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S_ IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


THE SWITCH SETTINGS ARE: 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR TYPEOUTS 

SW<12>=1 TYPE TEST NUMBER 

SW<11>=1 INHIBIT ITERATIONS 

SW<10>=1 RING BELL ON ERROR 

SW<09>=1 LOOP ON ERROR 

SW<08>=1 PRINT ERROR MESSAGE ON LINE PRINTER 

SW<07>=1 READ °C.SWR' SETTINGS FROM TTY 

SW<06>=1 INHIBIT TIME REPORTS (TESTS 12-15) 

SW<05>=1 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
SW<04>=1 INHIBIT WRITES (TEST 20) 

SW<03>=1 INHIBIT WRITE CHECKS (TEST 20) 

SW<02>=1 INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
SW<01>=1 INHIBIT SOFTWARE COMPARES (TEST 20) 

SW<00>=1 PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 


TO ENTER THE CONTROL SWITCH SETTING MODE PLACE St'-07>=1 

BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 

WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
(C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 


SEQ Ou". 
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6.1 


6.1. 


1 


SEQ 0013 


STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
AND A CARRIAGE RETURN. 


THE C.SWR SETTINGS ARE: 


. SWR<15>=0 WRITE PACK BEFORE TESTING (TEST16) 
= INHIBIT WRITE PACK BEFORE TESTING (TEST16) 
NO STALL BETWEEN DRIVE FUNCTIONS 
STALL AFTER EVERY DRIVE FUNCTION 
USE SPECIFIC _SfALL TIMES 
USE RANDOM STALL TIMES 
NO INCREMENTING STALLS IN TEST 4 
PERFORM INCREMENTING STALLS _IN TEST 4 
DO IMPLIED SEEKS WITH DATA TRANSFERS 
DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
DO READ HEADER AND DATA COMMANDS IN TESTS 0-7 
DO EXPLICIT SEEK COMMANDS IN TESTS 0-7 
60 HZ POWER SOURCE 
50 HZ POWER SOURCE 
ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER) 
INHIBIT SOFTWARE TIMEOQUTS(DISABLE WATCHDOG TIMER) 
OPERATE IN 32. SECTOR (16 BIT) MODE 
OPERATE IN 30. SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C.SWR<15:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 


_SWR<14>= 
_SWR<13> 
. SWR<12> 
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. SWR<00> 
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ERRORS 


THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM. 
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE 
IS MADE AND IF SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


1. AN ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 
THESE ERRORS WILL BE DETECTED BY THE RH/RM DRIVER. 


THERE ARE TWO CLASSES OF DRIVER ERRORS; THCSE THAT 
CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE 


renee nceneene nee ee ee 
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6.1.2 


6.2 
6.2.1 


6.2.2 


6.2.3 


SEQ 0014 


INFORMATION TO BE RETURNED TO A ‘DATA PARAMETER BLOCK"’ 
(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL SE 
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE DRIVER. 
THE SECOND CLASS WILL PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPR. 


NON-FATAL ERRORS 


THESE ERRORS WILL BE DJE TO ‘DISK'’ OR ‘DATA'’ FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


FATAL ERRORS 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
»iLt ABORT THE TEST AND GO TO THE END OF PROGRAM. 


ERROR RECOVERY 
PRETEST ERROR 


WHEN THIS TYPE OF ERROR CCCURS IT WILt BE REPORTED. THEN DEPENDING 
ON HOw THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 


NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WiLL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


FATAL ERROR 


WHEN THIS TYPE OF ERROR Se IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


RESTRICTIONS 


THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18 

BIT MODE DEPENDING ON THE SETTING OF °S.SWR<QO>’. IF ‘C.SwWR<00>* 

1S 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE: IF °C.SwR<00> 
IS 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AND 18 BIT MODE on tve> ON THE SAME SYSTEM. 

ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 


BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS ori BE MOUNTED 
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES A 

PROPERLY FORMATTED PACK, THE FORMAT OF THE PACK IS NOT ALTERED 

BY THE PROGRAM. 
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8.1 


8.2 


8.3 


SEQ 00*% 


MISCELLANEOUS 


EXECUTION TIME 


THE PROGRAM REQUIRES APPROXIMATELY 26 
RMO3/2 DRIVES AND APPROXIMATELY 35 MI 
DRIVES. THIS ASSUMES THE DEFAULT TES 
15-20) AND DEFAULT TEST PARAMETERS. 


STACK POINTER 
THE STACK POINTER IS INITIALLY SET TO 1400. 
TIMING TESTS (TESTS 12-15) PRINTOUTS 


AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF THE 
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILi BE TYPED ON 

THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM 

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


MINUTES TO MAKE ONE PASS WITH 
NUTES TO A PASS WITH RMO5S 
T SEQUENCE (TESTS 0-10,12,13 & 


TIMING TOLERANCES 
1. TEST 12 == ROTATIONAL SPEED TIMES 
--TIMES FOR RMO5/3 DRIVES-- 


60 HZ 

MINIMUM= 16340 US 
MAX IMUM=17000 US 
NOMINAL=16670 US 


50 HZ 

MINIMUM=16250 US 
MAX IMUM=17090 US 
NOMINAL=1667C0 US 


--TIMES FOR RMO2 DRI VES-- 


60 HZ 

MINIMUM=24500 US 
MAX IMUM=25500 US 
NOMINAL =25000 US 


50 HZ 

MINIMUM=24370 US 
MAX IMUM=25630 US 
NOMINAL =25000 LS 
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8.3.2. 


2. TEST 13 == ONE CYLINDER SEEK TIMES 
MAX IMUM=6000 US 

3, TEST 14 == AVERAGE SEEK TIMING TEST (NOT DEFAULT) 
MAX JMUM=30000 US 


*» THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME 
#* ON “HIS PARTICULAR DRIVE. THERESORE, THIS TEST SHOULD BE 
a» USED FOR REFERENCE ONLY. 


4. TEST 15 -= MAXIMUM SEEK TIMES 
MAXIMUM=55000 US 


ss THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE 
a* SEEK TIME ON THIS PAR: ICULAR DRIVE. THEREFORE, ANY REVERSE 
#* SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT GE 
x» TYPED IN THE TIMING REPORT. HOWEVER, THE TIMING REPORT 
es WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES 
s* FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2) 


TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE #1 


ROTATIONAL SPEED TIMES 
MIN=16670 US 

MAX=16690 US 

AVG=16680 US 10 SEARCHES TIMED 


ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMO5/5 
MIN=16250 US 
MAX=17090 US 


ONE CYLINDER SEEK TIMES 
* FORWARD 


MIN=5350 US 

MAX=6920 US 

AVG=5550 US 821 SEEKS TIMED 
* REVERSE 

MIN=5140 US 

MAX=5960 US 

AVG=5430 US 822 SEEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 
MAY=6000 US 


AVERAGE SEEK TIMES 
» FORWARD 

MIN=27770 US 

MAX=28640 US 

AVG=28230 US 128 SEEKS TIMED 
* REVERSE 
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MIN=27990 ft 
MAX=28550 U 
AVG=28220 us 
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SEO 001 


128 SEEKS TIMED 


ALLOWABLE AVERAGE TIME LIMIT 


MAX=30000 US 


MAXIMUM SEEK TIMES 
* 


FORWARD 
MIN=49990 rf 
MAX=51980 U 
AVG= Peace Us 

* REVERSE 
MIN=48120 US 
MAX=50650 US 
AVG=49340 US 


128 SEEKS TIMED 


128 SEEKS TIMED 


ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT 


MAX=55000 US 


EXAMPLE #2 


AVG=1 6680 us 


10 SEARCHES TIMED 


ALLOWABLE Re ATACnAt SPEED LIMITS FOR RMO0S/3 


MIN=16250 U 
MAX=17090 US 


ONE CYLINDER 
* FORWARD 


MIN=5470 US 
MAX=7940 US 
AVG=5830 US 
* REVERSE 
MIN=5040 US 
MAX=5970 US 
AVG=5330 US 


SEEK TIMES 


3 ABOVE THE MAXIMUM OF 6000 US 
821 SEEKS TIMED 


822 SEEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 


MAX=6000 US 


AVERAGE SEEK 
* FORWARD 
MIN=29730 US 
MAX=32620 US 
AVG=29900 US 


AVG=32800 US 


TIMES 


73 ABOVE THE MAXIMUM OF 30000 US 
128 SEEKS TIMED 


108 ABOVE THE MAXIMUM OF 30000 US 
128 SEEKS "IMED 


ALLOWABLE AVERAGE TIME LIMIT 
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8.4 


SEQ 0018 
MAX=30000 US 


patna tee TIMES 
* FORWAR 
MIN= 35810. US 
MAX=57240 US 128 AB 
AvG= pean. US 128 SEEK 
* REVERS 
MIN= B70S0. ws 
MAX=57550 J 
AVG=57210 us 128 SEEKS TIMED 


ALLOWABLE MAXIMUM (FORWARD) SEEK TIME  IMIT 
MAX=55000 US 


ae Cee OF 55000 US 


END OF TEST 


WITH ALL SWITCHES ON A ‘'0'' AN ‘'END OF PASS'’ MESSAGE WILL B€ 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST’’ 
TYPEOQUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. ALSO, THE 
END OF TEST COULD OCCUR ON A DRIVE, !F THE MAXIMUM ERROR LIMIT 
IN LOCATION ‘ERMAX’ IS EXCEEDED. 


PROSRAM DESCRIPTION 


see reene eee eaeeenes= 


THIS PROGRAM CONTAINS NINETEEN TESTS NUMBERED 0-22 IN OCTAL. 
TESTS O-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION 
FROM THE HEADER, USING A “READ HEADER AND DATA’ COMMAND, AND 
THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING 

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE 
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE AVERAGE SEEK 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND 
TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 

THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FiJNCTIONAL . 
voila. 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 

Y . 


THE PROGRAM WILL START BY IDENTIFING ITSELF SND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 

THE LOWEST NUMERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER. 

ALL OF THE DRIVES WILt BE TESTED. ONE PASS THROUGH THE TEST 
SEQUENCE (TESTS 0-10,12-20) WILL BE PERFORMED ON EACH DRIVE BEFORE 
MOVING TO THE NEYT DRIVE IN SEQUENCE. DRIVE TO BE 

TESTED WILL BE TYPED AT THE BEGINNING OF EACH PASS, AN ‘END 

OF PASS’' MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS, 
AND Af "END OF TEST’' MESSAGE WILL BE TYPED AFTER TESTING Ait 
DRIVES. 


REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST. 


TEST O = RECAL/RANDOM SEEK TEST 
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9.2 


9.3 


9.4 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECAL IBRATE ei 
AND THEN SEEK TO A RANDOM CYLINDER BETWEEN ‘FC"’ aoe 

THE COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE CHECKED 
TO ENSURE THAT NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE "EST ARE GIVEN BELOW: 


R - 200 
FC al 0 
LC - 822 
FT - 0 
FT’ - Q 
FS = 0 


TEST 1 = SEEK/SEEK TEST 


THIS TEST WILL Cheer THE DRIVE TO EXECUTE A FORWARD SEEK 

cere TO TLC, TLr'', “LS' FOLLOWED By A REVERSE SEEK CYCLE TO 
*C", “RT'S, “FS AT THE COMPLETION OF EACH SEEK, THE PROPER 

INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 100 
rC - 0 
LC oa 256 
Ic - 0 
FT = 0 
LT = 0 
FT’ - 0 
LT’ oe 0 
FS = 0 
LS = 0 
TEST 2 ~ INCREMENTAL SEEK TEST a 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADDRESS FROM ‘FC’’ TO 'LC’' BY THE INCREMENT ““IC’’. 
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

“LC'' REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL ‘NC'’ AND DECREMENTING BY "'IC’" 

UNTIL °NC'' IS Breese THAN ‘FC’, AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED 70 
ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R 7 1 
FC ~ 0 
LC = 822 
Ic 7 1 
FT = 0 
Fy" = Q 
FS = 0 
TEST 3 - STEPPING SEEK TEST 
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9.5 


9.6 


9.7 


SstC 0020 
THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 
8.16,32,64,128,256 AND 512. AT THE COMPLETION OF EACH SEEK 
EOEEATIERL. PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 


THE PARAMETERS USED By THE TEST ARE GIVEN GELOW: 


~NH-— ND 
NAANAN 

@enraoecte 
QDOO-]N0O 


TEST 4 = OSCILLATING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES FROM ‘*¥('' TO ‘NC’ AND BACK 

TO 'FC''. “NC'' STARTS AT ‘FC’' AND INCREMENTS BY ‘'IC’’ UP TO CYLINDER 
"LC'', THEN IS DECREMENTED BY ‘‘IC’’ BACK TO CYLINDER ‘**¥C’’. AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ~- 

FC - 0 
LC - 822 
IC - 1 
FT - 0 
FT* - 0 
FS - 0 

TEST § - CONVERGING/DIVERGING SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
SEEKS FROM 'NC1'' AND ‘NC2*' RESPECTIVELY, ‘NC1"’ WILL BE INCREMENTED 
BY “‘IC’’ AND ‘NC2'' WILL BE DECREMENTED BY ‘‘IC'’ UNTIL “NC1"" IS 
GREATER THAN THE INITIAL VALUE OF ‘NC2"* AND ‘'NC2"’ IS 

LESS THAN THE INITIAL VALUE OF ‘NC1''. AT THE COMPLETION OF 

EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

ENSURE PROPER OPERATION. ‘NC1°' AND ‘NC2"' DEFAULT TO 

"FC’' AND 'LC’’ RESPECTIVELY. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
LC = 822 
IC - 1 
FT - 0 
FT! = 0 
FS - 0 


TEST 6 - SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 
IN THIS TEST A SEEK IS DONE TO CYL 'NC’' THEN A SEEK °0 
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9.8 


9.9 


SEQ 00°" 


NC+4 THEN NC+1 THEN NC*+3 THEN NC*2 THEN NC*5. NOW ‘NC’ IS UPDATED 
BY “‘IC'' AND THE ABOVE SEQUENCE IS REPEATED UNITL ‘1C'' IS 

EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF "NC" 

S 'FC''. AT THE COMPLETION OF EACH SEEK COMMAND THE 

PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
LC - 822 
IC - 1 
FT - 0 
Fr’ - 0) 
FS 7 0 


TEST 7 = RANDOM SEEK TEST 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC’ 

‘LC’. AFTFR EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARAMTERS ‘FT° AND ‘LT’. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R = 5000 
FC - 0 
LC = 822 
FT 7 0 
LT 7 4 
FT* - 0 
LT’ - 18 


TEST 1 = SERVO SETTLE DOWN TEST 


THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘NC1° AND ‘NC1+IC° 

("'NC1" STARTS AT VALUE ‘FC°). AT THE COMPLETION OF 1000 (10) SEEKS, 
"NCT’ IS INCREMENTED BY VALUE ‘IC" AND THE SEQUENCE IS REPEATED. 

THE TEST IS COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE*S LOOK-AHEAD 
REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 
FOR THAT SECTOR. ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM 
MAY NOT BE ADJUSTED CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR 
THAT A PACK WITH MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 


THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. ‘THE NECESSARY TIME 
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUKNTLY 
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
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$cQ 00¢. 
*084 
1085 R - 1 
1086 FC - 0 
1087 LC - 822 
1088 Ic - 100 
1089 FT - 0 
1090 FY’ - 0 
1091 
ieee 9.10 TEST 11 = ALL SEEKS TEST (NOT DEFAULT) 
1096 THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
tae, TO ALL OTHER CYLINDERS. 
1097 BEGINNING WITH CYLINDER ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
1098 BETWEEN ‘FC’ AND 'LC* FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
1099 ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
1100 ADDRESS AND ALL CYLINDERS BETWEEN ‘FC* AND ‘LC’. THE SEQUENCE 
ve CONTINUES UNTIL AL' CYLINDERS HAVE BEEN CHECKED. 
ye THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 
1105 R - 1 
1106 FC - 0 
1167 LC - 822 
1108 Ic - 1 
1109 FT - 0 
1110 FT* - 0 
112 OP oe 4 
ees 9.11 TEST 12 ~ ROTATIONAL SPEED TIMING TEST 
1115 THIS TEST WILL START A SEARCH TO CYLINDER ‘FC’, TRACK ‘FT’, 
1116 SECTOR ‘FS*. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS 
“1117 SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE [S 
1118 REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED ANDO 
1056 CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 
1121 RMOS/3: 
1122 16.67 MS/REV + OR - 2% IF 60HZ 
1123 16.67 MS/REV * OR - 2.5% IF SOHZ. 
1124 
1125 
1126 25.00 MS/REV + OR ~ 2% IF 60HZ 
es 25.00 MS/REV + OR ~ 2.5% IF SOHZ. 
ne THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
1131 R - 1 
1132 FC - 0 
1133 FT - 0 
1134 FT’ - 0 
1135 FS - 0 
11% 
eee 9.12 TEST 13 - ONE CYLINDER SEEK TIMING TEST 
1139 THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
1140 CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
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SEQ 00-¢¢ 


CYLINDER ‘LC', THEN REVERSE SEEK TO CYLINDER ‘FC'. THE 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLIMDER SECK. 
MAXIMUM TIME IS 6.0 MS. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R - 1 
FC = 0 
LC * 822 


9.13 TEST 14 ~ AVERAGE SEEK TIMING TEST (NOT DEFAULT) 


THIS TEST WILL COMMAND A FORWARD SEEK FROM cee ‘FC’ TO 
CYLINDER ‘LC', THEN A REVERSE FROM CYLINDER ‘LC’ 

CYLINDER ‘FC’. BOTH SEEKS ARE TIMED AND CHECKED 10 ENSURE THEY 
ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK 

THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL OF 256. SEEKS). 
MAXIMUM TIME IS 30.0 MS. 


** THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME ** 
s* ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE ** 
x* USED FOR REFERENCE ONLY. fia 


THE TEST USES THE FOLLOWING PARAMETERS: 


R = 1 
FC = 0 
LC ss 220 


9.14 TEST 15 = MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER °FC* TO 
CYLINDER ‘LC', THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER 'FC'. BOTH SEEKS ARE TIMED, BUT ONLY THF FORWARD SEEKS 
ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR 
THE MAXIMUM SEEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 
A TOTAL OF 256. SEEKS). THE MAXIMUM (FORWARD) TIME IS 55.0 MS. 


** THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ** 
«* SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE ** 
** SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT BE ** 
** TYPED IN THE TIMING REPORT. HOWEVER, THE TIMING REPORT ** 
** WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES ** 
x* FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2) * 


THE TEST USES THE FOLLOWING PARAMETERS: 
R - 1 
FC = 0 
LC = 822 
9.15 TEST 16 = SECTOR ADDRESSING TEST 
THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK "FT’'. THE 


DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 
BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 
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SEQ 0024 


CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED. THEN SECTOR 
1S REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. THEN 

SECTOR 1 IS REWRITTEN AND SECTORS 0 = 31 ARE WRITE CHECKED. 

THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 
REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-21. 


THE TEST USES THE FOLLOWING PARAMETERS: 


>"> DD 
34344 


ooo- 


TEST 17 = TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

IN CYLINDER ‘'FC’' SECTOR 'FS'' OF EVERY TRACK WITH EACH TRACK 
GETTING ITS OWN TRACK ADDRESS. 

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE 

THE DATA IS VALID. THEN TRACK 0 IS REWRITTEN AND TRACK 1 
THROUGH LAST TRACK IS WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED. 
THIS PROCEDURE iS CONTINUED UP THROUGH REWRITING NEXT TO 
LAST TARCK AND WRITE CHECKING LAST TRACK. 


THE TEST USES THE FOLLOWING PARAMETERS: 


- 1 
C - 0 
S - 0 


TEST 20 - DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
"FC'' THROUGH ‘LC’’ BY THE INCREMENT ‘'IC’’ USING THE DATA PATTERNS 
SPECIFIED: ad penne SEQUENCE OCCURS FOR EACH CYLINDER: 

SET 'NT'' TO ‘FT'’ THEN REPEAT 2-4 UNTIL 'NT"’ > "UT" 
CRITE THEN WRITE CHECK ‘FS'' THROUGH “LS'* OF TRACK "NT"' 
READ THEN SOFTWARE COMPARE "FS'' THROUGH "LS'’ OF TRACK “NT"’ 
: INCREMENT NT BY ‘IT’ 
7 REPEAT STEPS 1~4 FOR EACH DATA PATTERN 
REPEAT STEPS 1-5 FOR ‘FC'' THROUGH ‘LC‘’ ADVANCING BY "‘IC"* 


IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK 1S 
ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
FATAL AND NO READ OCCURS. 

FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 

PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 

THE POSSIBLE PATTERNS ARE: 


*PAT 0 PAT 1 PAT 2. PAT 3. PAT 4 PAT 5 PAT 6 PAT 7 
155555 000001 177776 000000 133331 052525 155555 026455 
133333 000003 177774 000000 133331 052525 155555 026455 
155555 000007 177770 000000 133331 052525 155555 026455 


"wy D 


AUEWN 
« ee 
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33 


— 
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me a ss a os os 
WAAR AAA A 
WUOLAAAALAAI ALA ATLA 
WUT UTA ALA A A LA Td 
WUWGUIW UIA UTA AA 
CO NUANAA NWN 


ce ee ee we wed ed ee red red eed ed ed = 5b wd = 
ULATION AON A I 
AUALAT ALATA A AA AA 


5555 
333 


M2 
PAGE 3~22 


177760 


077777 


* WORST CASE PATTERN 


THE TEST USES THE FOLLOWING PARAMETERS: 


Thee FO “Ft ee FO Fe HD 
NASA HHO 


or 
Pun 
=— 


177777 
177??? 
177777 


UNUNUI 
NOVA MPO 
Maw 
Aan 
Aan 


ae ee ee ee ee 
UNMANUNUTN 


1 

0 
822 
64 


Om WO ££ O 


177777 
TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST 


NALA 


= er os SO 
WIALAILAIAIL AAI LAA A A 


077777 
137777 
157777 
167777 
173777 
175777 


177776 


TOAD ANI ANNAUININIAD 


WARS AIDS ADU 


2a oS SS 
MAPA AAA AIA 

DAA AAAAAATATAT Tt 

PRA AADIATA AAAI 


w 


177777 
177777 


STARTING AT ''FC’’ AND GOING THROUGH ‘LC'' THE DISK PACK 
IS WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 


OF EACH SECTOR WILL BE THE BASE OF TRE RANDOM GENERA‘OR 
FOR THAT SECTOR. 


ROWER 
ROMP ADI APD AIPA 


z 
POWMANR ARS VID 


SEQ 0025 


13 


N 2 
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ee me ee a we eed eed etd =) 3 2) 
a URNA A A Ay 
WN AOUDWONAULS WI 


1342 


aoe 
ARARKKEKREE 
NA ODOONAULSA 


SEQ 0026 
HE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘R’’ TIMES 
"R'' DEFAULTS TO 20,000. 
1) GENERATE A RANDOM ADDRESS 
2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1, 
3) GENERATE A_ RANDOM ADDRESS 
4) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 3. 
5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
7) GENERATE A_RANDOM ADDRRESS 
8) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 7. 
9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
THE TEST USES THE FOLLOWING PARAMETERS: 
R = 20000 
FC = 0 
LC = 822 


TEST 22 - SEEK TIME ADJUSTMENT TEST 


THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 255 TO ALLOW THE 
OPERATOR TO ADJUST THE SEEK TIME ON AN RMO5/3/2 USING THE 

DDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
SO THAT THE SEEK TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


THE TEST USES THE FOLLOWING PARAMETERS: 
R = 5000 
FC = 0 
LC = 255 


PROGRAM LISTING 


wees eee sen aem 


B 3 
rZPMYBO RMOS/3/2 EXT'°D DR TS! MACRO vO4.00 “4 -APR-81 11:57:12 PAGE « 
SEQ 002. 


* Z*LAST REVISION O4-APR-81 
3? TITLE CZRVBC RM05/3/2 EXT'D DP TST 
s*COPYRIGHT (C) 1981 
s*DIGITAL EQUIPMENT eaten 
: s COLORADO SPGS.. CO. 80919 
: sPROGRAM BY MIKE LEAVITT 


 STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR~B1 


os) *SBTTL OPERATIONAL SWITCH SETTINGS 
:* SWITCH USE 
ie 15 HALT ON ERROR 
if 14 LOOP ON TEST 
se 13 INHIBIT ERROR TYPEOUTS 
3* t2 TYPE TEST NUMBER 
:* 10 BELL ON ERROR 
:* 9 LOOP ON ERROR 
te 8 PRINT ERROR MESSAGE ON LINE PRINTER 
39 se ? READ 'C.SWR’ SETTINGS FROM TTY 
40 i¢ 6 INHIBIT TIME REPORTS (TESTS 12-15) 
4] if 5 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
42 z* 4 INHIBIT WRITES (TEST 20) 
43 i¢ 3 INHIBIT WRITE CHECKS (TEST 20) 
44 ye 2 INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
65 ie 1 INHIBIT SOFTWARE COMPARES (TEST 20) 
Pe . 0 PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 
re -SATTL CONTROL SWITCH SETTINGS 
*® 
30 :8 SWITCH STATE USE 
52 ze 15 0 WRITE PACK BEFORE TESTING (TEST 21) 
53 ie 1 INHIBIT WRITING PACK BEFORE TESTING (TEST 21) 
54 ie 14 0 NO STALL BETWEEN DRIVE FUNCTIONS 
55 pe 1 STALL AFTER EVERY DRIVE FUNCTION 
56 i° 13 0 USE SPECIFIC STALL TIME 
57 3° 1 USE RANDOM STALL 
58 je ’ 0 NO INCREMENTING STALL IN TEST 4 
59 z° 1 DO INCREMENTING STALL IN TEST 4 
60 ie 8 6 DO IMPLIED SEEKS WITH DATA TRANSFERS 
61 ie 1 DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
62 ;* 7 0 DO ‘READ HEADER AND DATA’’ IN TESTS 0-11 
63 ie 1 DO EXPLICIT SEEKS IN TESTS 0-11 
64 i¢ 6 0 60 HZ 
65 ie 1 50 HZ 
66 ie 5 0 RUN WATCHDOG TIMER 
67 i* 1 INHIBIT WATCHDOG TIMER 
68 i” 0 0 TEST DRIVE(S) IN 32. SECTOR (16 BIT) MODE 
o if 1 TEST DRIVE(S) IN 30. SECTOR (*8 BIT) MODE 


ma ~SBITL BASIC DEFINITIONS 


Cc 3 
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BAST DEFINITIONS SEQ VOCE 
st INITIAL oe OF THE STACK POINTER *#* 1100 #*¢ 
001100 STACK = 1100 
104000 ERROR = EMT 7sBASIC DEFINITION OF ERROR CALL 
000004 SCOPE = IOT 3. BASIC DEFINITION OF SCOPE CALL 


PO lee ti DEF INI TIONS 


000011 = 3; CODE FOR pond cont TAB 

000012 " = 12 CODE FOR LINE FEED 

000015 CR = 15 3:CODE FOR CARRIAGE RETURN 

000200 CRLF = 200 ;sCODE FOR CARRIAGE RETURN-LINE FEED 

177776 PS = 177776 2zPROCESSOR STATUS WORD 

177776 PSwW=PS 

177776 STKLMT = 177774 3STACK LIMIT REGISTER 

177772 PIRQ = 177772 7:PROGRAM INTERRUPT REQUEST REGISTER 

177570 DSWR = 177570 ; HARDWARE SWITCH REGISTER 

177570 DDISP = 177570 ; HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 

000000 RO - 20 7 :GENERAL REGISTER 

000001 R1 - 2) > GENERAL REGISTER 

000002 R2 = 22 7 GENERAL REGISTER 

900003 R3 - 33 7.GENERAL REGISTER 

000004 RS = 24 3 ;GENERAL REGISTER 

000005 R5 aie) 3 ;GENERAL REGISTER 

C00006 R6 ~ %6 2: GENERAL REGISTER 

000007 R7 - 27 ;GENERAL REGISTER 

000006 SP - %6 :: STACK POINTER 

000007 PC = 27 PROGRAM COUNTER 
ePRIORITY LEVEL DEFINITIONS 

000000 PRO = 0 3-PRIORITY LEVEL 0 

000040 PRI = 40 i ;PRIORITY LEVEL 1 

006100 PR2 = 100 7sPRIORITY LEVEL 2 

000140 PR3 = 140 7sPRIORITY LEVEL 3 

000200 PR4 = 200 7sPRIORITY LEVEL 4 

000240 PRS = 240 7 :PRIORITY LEVEL 5 

000300 PR6 = 300 7sPRIORITY LEVEL 6 

006340 PR7 = 340 7zPRIORITY LEVEL 7 
3°" ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 

190000 SwW15 = 100000 

040000 SW14 = 40000 

020000 SW13 = 20000 

010000 SwWi2 = 10000 

004000 SW11 = 4000 

002000 Swi0 ~ 2000 

001000 SwO09 = 1000 

000400 Sw08 = 400 

000200 Sw? = 200 

000100 Sw06 = 100 

000040 SwO5 = 40 

600020 Sw04 = 20 

000010 $wO3 = 10 

000004 Sw02 = 4 

000002 Sw01 = 2 

000001 S = 1 


wO0 
001000 Sw9-SWwO9 


.ZFMVBO RMOS/3/2 EXT'D DR IST 


BASI® DEFINITIONS 


000400 


000100 


od 3 
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ae BIT DEFINITIONS (81100 TO BIT15) 
BIT15 100000 


SW8=SwW08 
Sa7=SW07 
Sw6=Sw06 
SWw5=SHO5 
SW4=SWw04 
Sw3=Sw03 
Swe=Sw0e 
Sw1=SwW01 
SwO=Sw00 

= 1000 
BIT14 = 40900 
BIT13 == 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BITO9 = 1000 
B!T08 = 400 
BITO7 = 200 
BrT06 == 100 
BITOS = 40 
BIT046 = 20 
B1T03 = 10 
BITO2 =4 
BITO1 = 2 
BITOO = 1 
BIT9=81T09 
B1IT8=B81T08 
BIT7=81T07 
BIT6=817T06 
BIT5=81T05 
B1T4=81 704 
BIT3=81T03 
BIT2=BIT02 
BIT1=B1T01 
8170=B81T00 
i *BASIC 
ERRVEC = 
RESVEC = 10 
TBITVEC = 14 
TRIVEC = 14 
BPTVEC = 14 
IOTVEC = 20 
PWRVEC = 246 
EMTVEC = 30 
TRAPVEC = 34 
TKVEC = 60 
TPVEC = 64 
PIRQVEC = 240 
.SBTTL 


RH REGISTERS 


Bie TRAP sa ADDRESSES 


QUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 


72 TRACE TRAP 

: BREAKPOINT TRAP (8PT) 

RR Ck TRAP (IOT) **SCOPE*® 
sepa FAIL 
"EMULATOR TRAP (EMT) **ERROR** 
;’"TRAP’’ TRAP 

Sirty KEYBOARD VECTOR 

i: TTY PRINTER VECTOR 

2 7PROGRAM INTERRUPT REQUEST VECTOR 


;CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE 


100 


INTERRUPT ENABLE (BIT #6) 


SEQ 002% 


SO ee SR, tr A SSS SS ss Set hr Rs Pps yrs 


CZRMVRO RMOS/3/2 EXT'D DR TST 
RH REGISTERS 


Ooo 
i) 


ee we ed eed eed eed ed ed od = 02) = od = 
eS Te) 
RODOWNAUSWNH OS 


NR 


000200 


040090 


000001 
000002 
000004 
000010 


000040 


100000 


—E 3 
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SEQ 003) 
RDY = 200 sREADY (BIT #7) 
Al6 = 600 ZHIGH ORDER &JS ADDRESS BIT (BIT #8) 
Al? = 1000 :HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 “PORT SELECT (BIT #10) 
MCPE - 20000 “MASSBUSS PARITY ERROR (BIT #13) 
TRE = 40000 : TRANSFER ERROR (BIT #14, 
3S8C = 100000 “SPECIAL CONDITION (BIT #15) 


sWORD COUNT REGISTER (RMWC) 
(EACH BIT IS CALLED BY BIT NUMBER) 


3;BUS ADDRESS REGISTER (RMBA) 
(EACH BIT IS CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RMCS2) 


us] =] UNIT SELECT (BIT #0) 

US2 = 2 ZUNIT SELECT (BIT #1) 

US4 = 4 UNIT SELECT (BIT #2) 

BAI = 10 SBUS ADDRESS INCREMENT INHIBIT (BIT #3> 
7PAT = 20 7MASSBUS PARITY TEST (BIT #4) 
CLR = 40 CLEAR (BIT #5) 

IR = 100 INPUT READY (BIT 4&6) 

OR = 20C [OUTPUT READY (BIT #7) 

MPE = 400 MASS BUS PARITY ERROR (BIT #8) 
MXF = 1000 MISSED TRANSFER ERROR (BI” #9: 
PGE = 2000 PROGRAM ERROR (BIT #10) 

NEM = 4000 ;NON EXISTENT MEMORY (BIT #11) 
NED = 10000 NON EXISTENT DRIVE (BI” #12) 
UPE = 20000 ZUNIBUS PARITY ERROR (BIT #13) 
WCE = 40600 WRITE CHECK ERROR (BI* #14) 
DLT = 100000 DATA LATE (BIT #15) 


DATA BUFFER REGISTER (RMDB) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 
CONTROL AND STATUS 1 REGISTER. (#00) 


GO = 1 :G0 BIT (BIT #0) 

FI = 2 ZFUNCTION CODE BIT #1 

F2 = & FUNCTION CODE BIT #2 

3 = 10 sFUNCTION CODE BIT #3 

f4 = 20 TFUNCTION CODE BIT #4 

F5 = 40 > FUNCTION CODE BIT #5 

DVA = 4000 ZDEVICE AVAILABLE (BIT #117) 
DRIVE STATUS REGISTER (RMDS, (#01) 

OM = 1 sOFFSET MODE 

VV - 100 : VOLUME VALID (BIT #6) 

DRY = 200 “DRIVE READY (BIT #7) 

DPR ~ 600 “DRIVE PRESENT (BIT #8) 
PGM = 1000 =PROGRAMABLE (BIT #9) 

LST = 2000 “LAST SECTOR TRANSFERRED ‘BI’ @°.: 
WRL - 4000 “WRITE LOCK (BIT #11) 


F 3 
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AM RE SISTERS SEQ 003° 

135 01000"? MOL = 10000 MEDIUM ON-LINE (BIT #12) 

136 020000 PIP = 20000 ZPOSITIONING OPERATION IN PROGRESS (BIT #13) 
137 040000 ERR = 40000 “COMPOSITE ERROR (BIT #14) 

138 *90000 ATA = 100000 sATTENTION ACTIVE (BIT #15) 
14C ZERROR REGISTER #01 (RMERT) (#02) 
141 
742 000001 ILF = 4 ILLEGAL FUNCTION (BIT #0) 
“43 000002 ILR = 2 ILLEGAL REGISTER (BIT #1) 
146 000004 RMR = 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
165 000010 PAR = 10 sPARITY ERROR (BIT #3) 
"66 000020 FER = 20 sFORMAT ERROR (BIT #4) 
°47 000060 wCF = 40 *WRITE CLOCK FAIL (BIT #5) 

148 000106 ECH = 109 ECC HARD ERROR (BIT #6) 
149 000200 HCE = 200 ;MEADER COMPARE ERROR (BIT #7) 
59 000400 HCRO = 60C sMEADER CRC ERROR (BIT #8) 

§! GO1000 AOE = 1000 ZADDRESS OVERFLOW ERROR (BIT #9) 
1§2 002000 IAE = 2000 : INVALID ADDRESS ERROR (AIT #10) 
153 000 WLE = 4000 sWRITE LOCK ERROR (BIT #11) 
154 010000 DTE - 10000 ZORIVE TIMING ERROR (BIT #12) 
155 020000 oP! = 20000 OPERATION INCOMPLETE (BIT #13) 
156 040000 UNS = 40000 DRIVE UNSAFE (BIT #14) 
a 100000 DCK “00000 DATA CHECK ERROR (BIT 15, 
ted ZMAINTAINABILITY REGISTER #01 (RMMR1) (#03) - READ ONLY BI'S 
61 000001 DMD = 4 DIAGNOSTIC MODE 
162 000002 LSII 2 
63 ZLS 2&4 
164 000010 wd = 10 
"65 000020 EECC = 20 
166 000040 we = 40 
167 000100 CONT = 100 
168 000200 PHA = 200 
169 00040C PDA = 400 
170 001000 £CRC = 1000 

71 002000 PLFS = 2000 
172 004000 ESRC = 4000 
173 010000 REX = 10000 
174 020000 FAL = 20000 
175 iR/G = 40009 
1% 100000 occ - 100000 
a ZMAINIAINABILITY REGISTER #0* (RMMR1) (#03) - WRITE ONLY BITS 
180 900001 DMD a4 DP ITAGNOST!IC MODE 8!T 
18° 000002 MSC 2 
182 000004 M] 4 
183 000010 MwP - 10 
, 000020 DTG 20 
185 000040 MS = 40 ; 
600100 MDF - 106 

87 000200 MSER - 200 
1 000400 MOC - 600 

"a9 501000 MUR - 1000 

1H 002000 MRE = 200u 

*? 004000 MCLK - 6000 


ee ERNE 
SNe mee “eee meee 


Ne RN ee eet 


ZRMIBO 2M05/3‘c 
RM SESISTERS 


ExT'D DR TST 


MACRO ¥04.00 
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MSEN = 10000 

DTO = 20000 

OBEN = 40000 

OBCK = 100000 

ZATTENTION SUMMARY PSEUDOSREGISTER (RMAS) (#04) 
ATO = DEVICE O (BIT #0) 
ATl = 2 sDEVICE 1 (BIT #1) 
A’2 > 4 DEVICE 2 (BIT #2) 
AT3 = 10 DEVICE 3 (BIT #3) 
ATG = 20 IDEVICE 4 (BIT #4) 
AT5 = 40 DEVICE 5 (BIT #5) 
AT6 = 100 SDEVICE 6 (BIT #6) 
Al? = 200 DEVICE 7 (BIT #7) 


DESIRED SECTOR/TRACK ADDRESS A (RMDA) (405) 
(EACH BIT IS CALLED BY BIT NUMBER 


DRIVE TYPE REGISTER (RMDT) (#06) 


DRIVE TYPE NUMBER 
zDRIVE TYPE NUMBER 
:DRIVE TYPE NUMBER 
sDRIVE TYPE NUMBER 
sDRIVE TYPE NUMBER 
DRIVE TYPE NUMBER 
:DRIVE TYPE NUMBER 
sDRIVE TYPE NUMBER 


D100 


RM MAINTAINABILITY REGISTER #2 


et ote te Ha te re at te 


a ee 


SDRIVE TYPE 


NUMBER B 
DRIVE REQUEST Nar (BIT #11: 


@ 

ea 

—4 
OONANE WM 


[MOVING HEAD (BIT #13) 
TAPE DRIVE (BIT #14) 
ZNOT BLOCK ADDRESSED (BIT #15) 


SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 


(RMMRC) (#10) 


7RM ERROR REGISTER #02 (RMMR2) (#10) 


7 OFFSET 


REGISTER (RMOF) (#11) 


io 


200 
2000 
4000 
10000 


sOFFSET DIRECTION 
HEADER COMPARE INHIBIT (BIT ao 
TERROR CORRECTION C 

sFORMAT BIT (BIT 


DESIRED CYLINDER ADDRESS (RMD() (#i2) 


#1 


(BIT #07) 
oe INHIBIT Tart at 


#6) 
"7° 
#8) 
#9) 


aig: 


SEQ 003- 





rd 


; CZRMVBO_RMOS/3/2 ext’ D DR TST 
RM REGISTERS 


> 


~ 


4 
~ 


“100000 ~ . ... | BSE 








pantntnmenenenenidiitentmmmtitnmtemeainnl RO ce Sen NTO NNER me 


5 
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i 2(EACH BIT IS CALLED BY BIT NUMBER) 


CURRENT CYLINDER ADDRESS (RMHR) (a3) 
(EACH BIT IS CALLED BY BIT NUMBER) 


; SSERIAL NUMBER REGISTER (RMSN) (414) 
a " $CEACH IS CALLED BY BIT NUMBER) 
RM ERROR REGISTER #02 (RMER2) (#15) 


020000 - “OPE: 20000 ZOPERATOR PLUG ERROR (BI) #13) 
040000. SKI “ABRBR SEEK INCOMPLETE (BIT #14 


:BAD SECTOR ERROR (BIT #15) 


Curie g ete eo Ae “SECO POSITION. REGISTER (RMEC1) (#16) 
1. eae s ie A CEACH BIT 1S: CALLED BY BIT NUMBER) 
Tesi” eee ees “SECC PATTERN REGISTER -(RMEC2) (#17) 
ee ae ee a hs ~ EKEACH Lae As CALLED BY BIT NUMBER) 
a, ve i ae eon i oe a 2 "yo ‘ vggnuagdngnanuanantsuineogeanensanevanescacosenenaseaeseasevencoss 
Sat x mie GX , a ‘ ad wo Pe ae . " 
Ba re Sao ee oe, ae CODE ee 4 - 
: 000103 vate). 2,5 UNLOAD ,/= 103-5 -” 
“+ Q00105 2, 8 A re SEEK 9 £7105, woe 
«= *Q00107 7 3... 85 Me RECAL 2 =,107 8 Sood : 
000111" ss, ene *DRVCLR = 1113.14. : oe é 
0001133" =*s ue 2 -RELEASE j=-113 5° 7 
, 000115 Fe St sau » SOF SE eos be 
», 2) 0001122. ee Or RTC Ps 117% af 
SO000T21*.7 8° el PS READING S712T. "0 ‘ 
, 000123: 7 >,* a wie é a PACK wees i1235% ie ® a 
» 000131 SS pute SEARCH! E4312" : 4 
O00TS1 ee ye WRCKD © ZesdoT: wo 
© 000153 *.. “2° 4 -Aos 2. WRCKAD “2193 00° 
i 5 Q00161 = rts WRITES: SST6TE 
» *,, 000163 (+... Ver 7 SWRTHD: ad |: : 
OOOI ZI Se ee READ ?:\*= 171 ; 
000173 ~~~. eo - READHD *='173 , nS 
O00T4T 82S re: w GETREG". “S441 0 . 
» 000143. *SETFORM = 2143 ‘ 
ve, 000145 2 es) ty 7 “ S SELDRV.% 145, a F 
a enc alla “TOTHER, EQUATES * ; 
. 177400 oe » SCTRUC’ = 256, WORD COUNT’ FOR SECTOR 


SEQ 0033 


wee ae ee ee 


7Z7RMVBO RMOS/3/2 EXT'D DR TST 
TRAP CATCHER 


4 


OBO NAWR WAY 


19 


12 


13 
14 


000174 
000176 


000200 
000204 
090210 
000214 


000046 
000052 


000024 


001100 
001100 


Sasss 
a4 a 
aa oe 
NORD 


000000 


000174 
000000 
000000 


000137 
000137 
000137 
000137 


000220 


000220 
001100 


001100 
000024 
000200 
000044 
001100 
001100 


001114 


004670 
004712 
004660 
004702 
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SEO 0034 
-SBTTL TRAP CATCHER 
=0 
2 ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.¢2,HALT’’ 


>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
PSLOCATION Q) CONTAINS 0 TO CATCH IMPROPERLY LOADED vECTORS 


DISPREG:”-WORD 0 : SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 SESOFTWARE SWITCH REGISTER 
.SBITL STARTING ADDRESS(ES) 
JMP @ASTARTI :;JUMP TO STARTING ADDRESS OF PROGRAM 
JMP Q*START2 ZSELECT OPERATING PARAMETERS 
JMP aASTART3 ;SELECT RH/RM ADDRESSES 
MP aMSTARTS S COMBINATION OF 206 AND 210 


.SBTTL ACT11 HOOKS 


SS RRERHAAAARARARAREAAAEERAEEHRUHERHRARAEHHEHHDHAAAREKHDRARERRAHEARAHHE DD 


SHOOKS REQUIRED BY ACT11 
$SVPC=. 


A Zs SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"wORD 20000 :22)SET LOC.52 TO 20000 

-=$SVPC «RESTORE PC 


. 1100 
-SBTTL APT PARAMETER BLOCK 


LL UAAAAA ARATE REREEHARATERAEAAERERERAAAAAAEEAEEAAH HHH EH ERR EH ARES Ee 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
+ RERRERREAERERARAREAERERENERAEHERETEREREEAER EERE ERE E HERETO REELS 
-$X=, 27 SAVE CURRENT LOCATION 
~=24 :2SET POWER FAIL TO POINT TO START OF PROGRAM 
200 3cFOR APT START UP 
~=44 z:POINT TO APT INDIRECT ADDRESS PNIR. 
SAPTHDR ;;:POINT TO APT HEADER BLOCK 
=. 5X ZiRESET LOCATION COUNTER 
LLRARAM ARE ERERREARETRERE TERRA EAE EEREERRTRRA CARRERA ETAT TEES 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ZINTERFACE oPEC. 


SAPTHD: 

$HIBTS: .WORD 0 :7TwO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD SMAIL > ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 2100. > RUN TJM OF LONGEST TEST 

$PASTM: .WORD 2100. 2 7 RUN TIME IN SECS. OF 1ST PASS ON T UNIT (QUICK VERIFY) 

SUNITM: .WORD 2100. s ADDI T TONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
“WORD $ETEND-SMAIL/2 ;;:LENGTH MAILBOX-E TABLE (WORDS) 

TAB. XY=. > COMMON TAG STARTING ADDRESS 


C 
0 


ee ee ed ed ed od = od 8d = 
meme ee eed ed a ed = ed od 
WAAATRIPIDIN 2 2 2 
EN—ORKNONASESE 


S88S8888888S8s 
S& 


001232 


CZRMVBO RMO5/3/2 EXT'D 
OMMON TAGS 


001114 


DR TST 
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~SBITL 


COMMON TAGS 


SEO 003° 


; “RAAAAKARARAARARARARARARAAAAKEREHHREKRAKRAKAHEEKAHANTANe eRe eee ehaee 


S*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
[*USED IN THE PROGRAM, 


= TABLXY 
SCMTAG: 

~ WORD 
STSTNM: BYTE 
SERFLG: .BYTE 
SICNT: WORD 
$LPADR: .WORD 
$LPERR: .WORD 
SERTTL: . WORD 
SITEMB: .BYTE 
ERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
$GDDAT: .WORD 
S$BDDAT: .WORD 

- WORD 

~ WORD 
SAUTOB: .BYTE 
SINTAG: a5 

: ‘ D 

DISPLAY: .WORD 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPA: 177566 
$NULL: .BYTE 
SFILLS: .AYTE 
$rILLC: .BYTE 
STPFLG: .BYTE 
S$REGAD: .WORD 
$REGO . WORD 
$REG1 . WORD 
$REG2 WORD 
$REG3 . WORD 
$REG4 . WORD 
$REGS:  .WORD 
STMPO:  .WORD 
$TMP1: .WORD 
STMP2: WORD 
STIMES: 0 
SESCAPE :0 
SBELL: .ASCIZ 
$QUES: ASCII 
$CRLF: .ASCI] 
$LF: -ASCIZ 


lw lololololeleleolelelel jieleleloleiolei{a) 


SW 
DDISP 


nN 


DVWODOOOVOO OCO—NO 


perros iiesnale 
/7/ 


<15> 
<12> 


32START OF 


ZZ CONTAINS 
2: CONTAINS 
CONTAINS 
7 CONTAINS 
ZZ CONTAINS 
: CONTAINS 
ic CONTAINS 
¢ CONTAINS 
tc CONTAINS 
: CONTAINS 
3s CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOO? ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD’ DATA 
‘GOOD’ DATA 

"BAD’ DATA 


 :RESERVED--NOT TO BE USED 


7-AUTOMATIC MODE INDICATOR 
ic INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 

7sADDRESS OF DISPLAY REGISTER 

isTTY KBD STATUS 

7c TTY KBD BUFFER 

Zi TTY PRINTER STATUS REG. ADDRESS 

3 TTY PRINTER BUFFER REG. ADDRESS 

Zi CONTAINS NULL CHARACTER FOR FILIS 

2s CONTAINS # OF FILLER CHARACTERS een 

REST FILL CHARS. AFTER A “LINE FEED’ 
SUTERMINAL AVAILABLE'' FLAG (BI '<07>- 5 VES) 
S CONTAINS THE ADDRESS FROM 
WHICH See WAS OBTAINED 

CONTAINS ((SREGAD) +0) 


CONTAINS (($REGAD) +2) 
( (SREGAD) +4) 
( ($REGAD) +6) 
( ($REGAD) +10) 
(($REGAD) +12) 


7 CONTAINS 
7 CONTAINS 
7 CONTAINS 
7c CONTAINS 


i sUSER DEFINED 
‘USER DEF INED 
sUSER DEF JNED 
TIMAX. NUMBER OF ITERATIONS 
ZESCAPE ON ERROR ADDRESS 
SECODE FOR BELL 
+ sQUESTION MARK 
i CARRIAGE RETURN 
SILINE FEED 


PAAR ARARRERARAAHARTAAARARHHAHEHAHERRERERERERRERE HEHE AKER REDE 


*SBITL 


APT MAILBOX~E TABLE 


CZRMVBC &MO05/3/2 EXT'D OR TST 


APT MAILBOX-E TABLE 


001234 


001262 


001264 
001265 


001314 


000000 


000 
000 


000000 
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SEQ 0036 


CLARA AMARA AERA RANE AH RARETAAAAAAA AHHH RHEE RKK HAAR eaneee se & 


EVEN 

SMAIL: 
SMSGTY: .WORD 
SFATAL: .WORD 
STESTN: .WORD 
$PASS: .WORD 
$DEVCT: .WORD 
SUNIT: .WORD 
SMSGAD: .WORD 
$MSGLG: .WORD 
SETABLE 

SENV: BYTE 
SENVM BYTE 
$SWREG: .WORD 
$SUSWR: WORD 
$CPUOP: .WORD 
te 

ie 

3* 

7% 

SMAMS1: .BYTE 
SMTYP1: .BYTE 
of 

a 

i* 

te 

$MADR1: .WORD 
* 

SMAMS2: .BYTE 
SMTYP2: .BYTE 
SMADR2: .WORD 
$MAMS3: .BYTE 
SMTYP3: .BYTE 
SMADR3: .WORD 
SMAMS4: .BYTE 
SMTYP4: .BYTE 
SMADR4: .WORD 
$VECT1: WORD 
$VECT2: .WORD 
$BASE WORD 
SDEVM: .WORD 
SETEND 


AMSGTY 
AFATAL 


ACPUOP 


AMAMS 1 
AMTYP1 


si APT MAILBOX 
: MESSAGE TYPE CODE 
33FATAL ERROR NUMBER 
:3 TEST NUMBER 
: zPASS COUNT 
: DEVICE COUNT 
221/0 UNIT NUMBER 
7 MESSAGE ADDRESS 
MESSAGE LENGTH 
2 APT ENVIRONMENT TABLE 
: ENVIRONMENT BYTE 
: ENVIRONMENT MODE BITS 
szAPT SWITCH REGISTER 
7: USER SWITCHES 
:CPU TYPE ,OPTIONS 
BITS 15- ae =CPU TYPE 
11/04=01, L030 i) ie0 One gne 94,11/65 05 
11/70=06,PD0=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 99=FLOATING POINT prereoone 
BIT 8=MEMORY MANAGEMENT 
:;HIGH ADDRESS,M.S. BYTE 
MEM, TYPE ,BLKAI 
MEM. TYPE BYTE “- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
: HIGH ADDRESS, BLKAT 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF *'TYPE’’ ABOVE 
: sHIGH ADDRESS.M.S. BYTE 
: MEM, TYPE ,BLKA2 
2 MEM.LAST ADDRESS .BLK&2 
: HIGH ADDRESS .M.S.BYTE 
+ MEM. TYPE ALKA 
> sMEM.LAST ADDRESS ALKA 
: HIGH ADDRESS 4.S.BYTE 
7 MEM, TYPE ,BLK&G 
sMEM.LAST ADDRESS ,BLK&4 
{INTERRUPT VECTORA1, BUS PRIORITY#1 
> INTERRUPT VECTOR#2BUS PRIORITYa? 
Bayer OF EQUIPMENT UNDER TEST 
3;DEV 


CZRMVBO RMOS/3/2 EXT'D DR TST 
USER DEFINED TAGS 


001465 
001466 
001470 


000000 


0 

166777 
000000 
000000 


000020 


000003 
000000 


000000 


000000 


000000 
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SEQ 003/ 


USER DEFINED TAGS 


MACRO V04&.00 
~SBITL 
C.SWR: WORD 
ERMAX: WORD 
SAVCSW: WORD 
CNTRLC: . WORD 
BUSADR: .WORD 
LPTAVL: .WORD 
DRVSEL: .WORD 
TSTNMS: WORD 
OPNFLG: .WORD 
CLKSTA: .WORD 
TICKMS: .WORD 
TICKUS: .WORD 
BYPASS: .WORD 
CHKDRV: .WORD 
DRVMSK: .WORD 
SVSTAT: WORD 
CYL.RD: .WORD 
TRK.RD: .WORD 
SEC.RD: .WORD 
CYL.DS: .WORD 
SEC.DS: .WORD 
TRK.OS: .WORD 
LSTRK: WORD 
TIM.UP: .WORD 
. WORD 
. WORD 
WORD 
WORD 
. WORD 
TIM.DN: WORD 
. WORD 
WORD 
. WORD 
WORD 
WORD 
TIM.PT: .WORD 
WCEFLG: .WORD 
STALLO: .WORD 
SVADR: .WORD 
SEKTMR: .WORD 
SEKCNT: WORD 
DFLTA: .WORD 
TRCKWC: WORD 
STALL1: .WORD 
STALL2: .WORD 
STALL3: .WORD 
MXSTAL: .WORD 
ERR.CT: .BYTE 
BYTE 
BASFLG: .WORD 
XXDP: WORD 


ZCONTROL SWITCHES 
:MAXIMUM NUMBER OF ERRORS ALLOWED PER DRIVE 
ZPREVIOUS CONTENTS OF ‘C.5WR 
ZCONTROL ‘'C’’ FLAG 
GET ADDRESSES FROM THE TTY FLAG (O=NO, -1=YES) 
sLPT AVAILABLE STATUS (0=NO0,1=Y2S) 
;DRIVES SELECTED FOR TFSTI NG 
777,3 :DEFAULT IS RUN TESTS 0-10,12,13 @ 15-21 
SMODIFY TEST PARAMETER FLAGS 
:CLOCK STATUS (O=NO CLOCK,+1=KW11-P, 
“AND -1=KW11-L) 
216 MILLISECONDS PER CLOCK TICK 
316666 MIRCOSECONDS PER CLOCK TICK 


sDRIVE UNDER TEST 
DRIVE MASK BIT 
i STATUS/ERROR INDICATOR IS 
SAVED HERE ON AN ERROR 
oh ti READ 
RACK READ 
‘SECTOR READ 
CYLINDER DESIRED 


STRACK DESIRED 
CONTAINS THE LAST TRACK OF THE UNIT UNDER 
ay RM02/3 = 


[MINIMUM TIME 
NUMBER OF COUNTS BELOW MIN. LIMIT 
{MAXIMUM TIME 
NUMBER OF COUNTS ABOVE MAX. LIMIT 
TOTAL TIME OF ALL SEEKS 
NUMBER OF SEEKS PERFORMED 
sMINIMUM TIME 
NUMBER OF COUNTS BELOW MIN. LIMIT 
sMAXIMUM TIPE 
NUMBER OF COUNTS ABOVE MAX. LIMIT 
Cc TOTAL TIME OF ALL SEEKS 
NUMBER OF SEEKS PERFORMED 
sPOINTS TO TABLE OF TIMES 
FATAL WRITE CHECK ERROR FLAG 
VARIABLE STALL 


wi 
. 


22 DO POOOCOCONG 
oOo 


an 
fot 
Oo 
Oo 


en ° 


* 
Oo 


0 ZSAVE DISK ADDRESS 

SEEK TIMER 

>SEEK COUNTER 

TESTING RANGE FOR SERVO SEITLE DOWN TEST 
256.*32.> [WORD COUNT FOR A FULL TRACK IN 16 BIT MODE 


< 
Q. 310 MILLISECONDS STALL 
0. :10 Aichi STALL 
000. 75 SEC STALL 
oe “MAX. INCREMENTING STALL ALLOWED IN TEST 4 
6. [NUMBER OF ERRORS ALLOWED IN TESTS 16 ~ 21 
;BEFORE GOING TO THE NEXT TEST 
s RESERVED 
FLAG FOR DETECTING BAD SECTOR 
: THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 


==] | | COODDVCOGSOSOSOOOSSCSOGOHGD CBOGOOCO9D COCO 


oQoo 


CZRMVBO RMO5/3/2 EXT'D DR TST 
USER DEFINED TAGS 


001630 
001632 


176700 
090254 
000104 
172540 


177516 


000001 
000002 


047754 
000000 


600240 
000106 


000102 
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ERRCN: 


-BLKB 8. 


sADDRESSES AND veCTORS 
RH.ADR: .WORD 176700 


SEQ 0038 


7 THE PROGRAM WAS LOADED. THF HIGH BYTE CONTAINS THE 
i'XXDP’ DEVICE CODE FOR THE RMO5/3/2. 


TOTAL ERROR COUNT FOR DRIVES 0-7. 


3RH/RM UNIBUS ADDRESS 


7VECTOR ADDRESS AND PRIORITY 


7KW11-P VECTOR ADDRESS 
7KW11-P CONTROL AND STATUS REG. 
iKW11-P COUNT SET BUFFER 
3KWi1-P COUNTER 
jKW11=L VECTOR ADDRESS 
iKWIT-L STATUS REGISTER 
TTY PRINTER STATUS 
TTY PRINTER BUFFER 
ZLINE PRINTER STATUS 
SLINE PRINTER BUFFER 


ZROTATIONAL TES? TABLES FOR RMO5/3 DRIVES 


RHVEC: .WORD 254,240 
PKY: "WORD 104.106 
PKCS: WORD 172540 
PKB: “WORD ©: 172542 
PKC: "WORD 172544 
LKV: “WORD 100,102 
LKS: “WORD 177546 
TPS: "WORD 177564 
TPB: “wORD 177566 
LPS: "WORD 177514 
LPB: “WORD 177516 
:BIT TABLE 
BITS: .WORD B1T0O 
RD ‘1701 
WORD BITO2 
WORD BITO3 
WORD BIT04 
WORD  BITOS 
“WORD BIT06 
WORD 81707 
WORD BITO8 
WORD  BITO9 
WORD BIT10 
“WORD BIT11 
WORD BIT12 
WORD 81713 
WORD BIT14 
WORD  B1T15 
WORD 81700 
WORD B!T01 
WORD BITO2 
“WORD BIT03 
WORD  BIT04 
D BITOS 
WORD  B1T06 
WORD ®BIT07 
.SBITL TIMING LIMITS 
“60HZ TABLE 
T7A: 


7B: 


SOHZ TABLE 
« WORD 


-WORD ROTATE 
-WORD 0 
-WORD 1634. 
«WORD 1700. 


ROTATE 
-WORD 0 


26 


CZRMVBO RMO5S/3/2 EXT'D DR TST 


TIMING LIMITS 


001634 
001636 


001640 
001642 
001644 
001646 


001650 


001656 


001660 
001662 
601664 
001666 


001670 


001676 
001700 


001724 
001726 
001730 


001732 
001734 
001736 


003131 
003255 


047754 
000000 
004622 
004766 


04754 


005003 


050005 
050152 
000000 
001130 


050052 


005670 
050112 


012574 


050350 
003142 
003244 


050350 
003131 
003255 


050425 
004622 
004766 


050425 
004605 
005003 
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SEQ 0039 
«WORD 1625. 7L0 LIMIT (16.67MS - 2.5%) 
«WORD 1709. cHI LIMIT (16.67MS + 2.5%) 
sROTATIONAL TEST TABLES FOR RMO2 DRIVES 
:60HZ TABLE 
T7A1: «WORD ROTATE 
WORD 0 
WORD 2450. sLO LIMIT (25.00MS - 2%) 
«WORD 2550. sHI LIMIT (25.00MS + 2%) 
Feat TABLE 
» WORD ROTATE 
.WORD 0 : 
*wORD 2437. ZLO LIMIT (25.00MS - 2.5%) 
. WORD 2563. sHI CIMIT (25.00MS + 2.5%) 
SEEK TEST TABLES 
i 0: WORD ONECYL FORWARD 
“WORD REV sREVERSE 
. WORD 0 zNO LO LIMIT 
-WORD 600. sHI LIMIT (6.0MS) 
T11: . WORD AVERGE FORWARD 
. WORD REV cREVERSE 
. WORD 0 <NO LO LIMIT 
-WORD 3000. fHI CIMIT (30.0MS) 
T12 -WORD MXSEEK 2 FORWARD 
-WORD REV REVERSE 
-WORD 0 sNO LO LIMIT 
WORD 5500. sHI LIMIT (55.0MS) 


3SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 
ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO5/3 DRIVES 


:60HZ TABLE 
SP7A: ~WORD MSG7XA 
WORD 1634. sLO LIMIT (16.67MS - 2%) 
«WORD 1700. SHI LIMIT (€16.67MS + 22%) 
750HZ TABLE 
SP7B: . WORD MSG7XA 
.~ WORD 1625. sLO LIMIT (16.67MS ~- 2.5%) 
WORD 1709. ‘HI LIMIT (16.67MS + 2.5%) 
sROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO2 DRIVES 
:60HZ TABLE 
SP7A1:  .WORD MSG7XB 
. WORD 2450. :LO LIMIT (25.00MS - 2%) 
~ WORD 2550. HI LIMIT (25.00MS + 2%) 
:50HZ TABLE 
SP7B1: .WORD MSG7XB 
-WORD 2437. LO LIMIT (25.00MS - 2.5%) 
. WORD 2563. SHI LIMIT (25.00MS + 2.5%) 


Sepa eat ha mee eas" inn peeps nis cents oerincs 


7RMYVBO RMOS/3/2 EXT’D OR TST 


"TIMING LIMITS 


001740 
001742 
001744 


001746 


001750 


001752 


001754 
00* 756 


050500 
000000 
001130 
050542 
000000 
005670 
050604 
000000 
012574 


052501 


MACRO V04.00 


B 4 
&-APR-81 11:57:12 PAGE 7-3 
SEQ 0040 


MING TESTS MESSAGES AND LO/HI LIMITS 
Q: -WORD = MSG10Xx 
WORD 


0 cNO LO LIMIT 
WORD 600. sH] LIMIT (6.0MS) 
SP*1: .~ WORD MSG11X 
.~ WORD 0 3NO LO LIMIT 
. WORD 3000. sMI LIMIT (30.0MS) 
SPl2: -WORD MSO12x 
«WORD zNO LO LIMIT 
WORD 5500. tH] LIMIT (55.0MS) 
:STATUS/ERROR MESSAGE POINTER TABLE 
STATBL: . WORD MSGB14 ZOFFLINE OR UNSAFE DRIVE REQUESTED 
WORD MSGB13 ZUNLOAD DRIVE REQUESTED 
WORD MSGB12 ZPERSISTENT UNSAFE 
- WORD MSGB11 zPARITY ERROR OCCURRED 
«WORD MSG310 ZFATAL PARITY ERROR 
~ WORD MSGB09 : SOFTWARE TIMEOUT ON THIS DRIVE 
. WORD MSGRO8 zSOFTWARE [IMEQUT ON ANOTHER DRIVE 
. WORD MSGB06 ZERROR OCCURRED DURING I/0 OPERATION 
~ WORD MSGBO05 sERROR OCCURRED DURING NON-1/0 OPERATION 
. WORD MSGB04 ZUNSAFE OCCURRED 
.WORD MSGB03 TAUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
WORD MSGBO2 :DRIVE HAS NOT RESPONDED TO PORT REQUEST 
- WORD MSGR01 ZDRIVE HAS BECOME NONEXISTENT 


28 


ap ee RMOS/3/2 ExT'D OR 


ER 


BONAUVEWN QAOOBDNAUS 


ae a ts wt 


19 


POINTER TABLE 


002014 


002014 
002016 
002020 
002022 


002042 


002044 
002046 


050660 
052337 
053714 
054346 


050732 
052354 
053720 
054352 


050770 
052441 
053736 
054356 


051025 
052476 


TST 
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SEQ O04" 
.SATTL ERROR POINTER TABLE 
S* THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


Se THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS FERTINENT. 


**NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATS IS (S$ERRPC) 
S ¥NOTE2: EACH JTEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
el EM :ZPOINTS TO THE ERROR MESSAGE 
7* DH sZPOINTS TO THE DATA HEADER 
:* OT :zPOINTS TO THE DATA 
* DF ::POINTS TO THE DATA FORMAT 
SERRTB: 
:*ERROR 1 


i’ RH CONTROLLER INTERRUPT OCCURED (RMAS~-0) 


ERR PC 


: RMAS 
Piel SERRPC $REG3 


EM] 
DH1 
oT1 
OF 1 


:sERROR 2 
Poa! UNEXPECTED ATTENTION OCCURRED 


* ERR PC DRIVE RMAS RMDS = RMER] RMMR2 RMER2 
7* SERRPC $REG1 $REC3 RMERRS RMERRS*+2 RMERRS*4 RMERRS*6 


Z*ERROR 3 


.* MASSBUS PARITY ERROR (MCPE=1) 
TEST ERR PC ADDRESS DATA 
:* $TMPO SERRPC RD.ADR RD.WRD 


ee 
* 


Z*ERROR 4 


on MASSBUS PARITY ERROR (PAR=1) 
“* TEST ERR PC ADDRESS GDDATA BDDATA 
.* $TMPO $ERRPC WRT.ADR WRT.WD RD.WRD 


EM4 
DHé 


D 4 
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ERROR POINTER TABLE 


46 C02050 
nef 002052 


55 002054 


62 002064 
066 


00 
64 002070 
65 C02072 


69 002074 
70 002076 
71 002100 
72 002102 


80 002104 
81 002106 
82 002110 
83 002112 


053746 
054 362 


05106* 


054352 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


051115 
052545 
054000 
054366 





051173 
052564 
054004 
054372 


DT4 
DFS 


:sERROR 5 


-t 
e 
ff 
. 
of 
° 


ADDRESS PLUG CHANGE BIT SET 
ERR PC DRIVE RMAS RMDS  RMER’ RMMR 2 RME RO 
SERRPC $REG] $REG3 RMERRS RMERRS*2 RMERRS*4 RMERRS+6 


;*ERROR 6 ~~ NO? USED 


Dooo 


Z*ERROR 7 =~ NOT USED 


Oooeo 


z*ERROR 10 


=* 
° 

o& 
e 
** 
* 


RH CONTROLLER FAILED TO RESPOND TO ADDRESSING 
RMCS1 ERR PC 
RH.ADR SERRPC 


:*ERROR 11 


ww 
e 
*® 
ra 
-* 
° 


DRIVE SELECTED IS NOY ONLINE 
DRIVE ERR PC 
$REG2 SERRPC 


ZSERROR 12 


Be Sa Be Be Be 
@#enaee 


IMPROPER HEADER DATA 

TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

$™MPO  $ERRPC $REGO CHKDRV CYL.DS_TRK.DS SEC.DS 
GDCYL GDTRK GDSCTR BDCYL BDIRK BDSCTR 
CYL.DS TRK.DS SEC.DS CYL.RD TRK.RD SEC.RD 


nae ee ene Rea ET ‘ecuibaniechomtinad ibe: 


SEQ 004¢ 


C7RMVBO RMOS/3/2 EXT'D OR TST 


FRROR POINTER TABLE 


103 
104 
195 002124 


08 002132 
0 


0 


med od 3 2 3 — 3 3 2) a 9 2 — 


RORG ee ws es ss ee 


see 
NM 
WAI A=AQGOWNKOnEWN-O 


C02142 


128 002144 
129 002146 
130 902150 
131 002152 


151 002164 
182 002166 
002170 
002172 


oy 
AIA a 
WOON 


051230 


054376 


051255 
052605 


054416 


051255 


600000 
000000 
054060 
054416 


MACRO v04 


ea 
ese epee ses 


—E 4 
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i. CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


"ERROR 13 


DATA COMPARE FAILURE 
TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
$™MPO $ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
GDDAT BDDAT WRDCNT GDADR BDADR 
$GDDAT $BDDAT $REG4 $GDADR S$BDADR 
CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
—M13 
DH12 
D113 
DF 13 


PERROR 14 == FOLLOWS #13 


2 SGDDAT S$BDDAT SREGS4 $GDADR SBDADR 
0 
0 
DT13A 
DF14 
"ERROR 15 


:* $GDDAT S$RDDAT $REG4 


,* DISK ERROR IN TIMING TEST 


’ 


* TEST 


DATA COMPARE FAILURE 
TEST ERR PC ST PC DRIVE CYLNDR TRACK SECTOR 
STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
GDDAT ®8DDAT WRDCN? GDADR  B8DADR 
SGDDAT SBDDAT S$REGS $GDADR SADADR 


*ERROR 16 == FOLLOWS #75 
$GDADR $B8DADR 
¢) 


0 
DT13A 
DF14 


*ERROR 17 


ERR PC DRIVE RMCST RMDS RMER1 RMMR 


\ 


RMER2 


SEQ 0043 


Oe rr oR LS RE i ene 


F 4 
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ERROR POINTER TABLE SEQ O0C44 
169 :*  $TMPO.—- SERRPC.) «CHKDRV.-RM.REG =RM.REG*12 RM.REG*14 RM.REG*40 RM.REG*42 
162 002174 051302 EM17 
163 602176 053017 DH17 
164 602200 054072 DT1? 

165 002202 054422 DFI7 
167 :*ERROR 20 
169 :* CLOCK (KW11=2) OVERFLOW IN TIMING TEST 
170 te TEST ERR PC DRIVE RMCST  RMDS RMER1 RIM 2 RMER? 
171 te $TMPO.—- SERRPC)«CHKDRV. «RM.REG =RM.REG*12 RM.REG*14 RM.REG*40 RM.REGS42 
173 002204 051334 EM20 
174 002206 053017 DH17 
175 002210 054972 pri7 
176 0N2212 054422 DF17 
178 S*ERROR 21 
179 
180 * DATA COMPARE FAILURE 
181 ze oTEST ERR PC TST PC DRIVE CYLNDR TRACK 
182. = STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS 
183 :* GDDAT BDDAT wWRDCNT SECTOR 
184 t+ $REG]  S$BDDAT $REGG  $REGI 
185 * CYLINDR, TRACK, WROCNT, AND SECTOR ARE DECIMAL 
187 002214 051255 EM13 
188 002216 053114 DH21 
189 002220 054112 DT21 
190 002222 054426 DF21 
{ 
192 Z*ERROR 22=-FOLLOWS #21 
196 :e $REG] $ADDAT $REG4  $REGI 
196 002224 000000 9 
197 002226 600000 0 
198 002230 054126 DI21A 
199 002232 054436 DF22 
201 Z*ERROR 23 
202 
203 « DISK ERROR DURING SEEK 
204 te TES ERR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS 
205 ie $TMPO SERRPC CHKDRV CYL.DS RM. REG RM.REG*10 RM.REG* tC 
206 « RMER1 RMMRO RMER< RMHR 
207 « RM.REG*14 RM.REG*40 RM.REG*42 em PREG S34 RM.REG* 36 
209 002234 051403 EM23 
210 002236 053231 DH23 
211 002240 05413 D123 
212 002242 054442 DFO3 
216 Z*ERROR 26 
275 


216 He SEEK NOT COMPLETE WITHIN 120 MS 


G 4 
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ERROR POINTER TABLE SEO 0045 
217 ¢t TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 
218 se STMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG+10 aM. PREG?12 
219g sis RMER1 RMMR2 RMER2 RMDC RMHR 
os z* RM.REG*14 RM.REG*60 RM.REG*42 RM.REG*34 RM.REG*36 
222 002244 051432 EM24 
223 0022466 053231 DH23 
224 002250 054136 0123 
oop 002252 054442 DF 23 
227 SEPARA EERE TEER EEE ETAT HEE HETERO e ee eee eee 
228 :* ERRORS 23-40 NOT USED 
Ssh y* ERRORS 41-46 WIL. HAVE AN EM THAT 
231 3* VARIES DEPENDING ON THE ERROR, IT WILL BE IN THE FORM: 
232 :* RH/RM ERROR (MESSAGE) 
233 z* WHERE MESSAGE WILL BE ONE OR MORE OF THE FOLLOWING: 
234 z* 1) OFFLINE OR UNSAFE DRIVE REQUESTED 
235 3* 2) UNLOADED DRIVE REQUESTED 
236 s* 3) PERSISTENT UNSAFE 
237 i* 4) PARITY ERROR OCCURRED 
238 ut > FATAL PARITY ERROR 
239 z* 6) SOFTWARE TIMEOUT ON THIS DRIVE 
240 zt 7) SOFTWARE TIMEOUT ON ANOTHFR DRIVE 
241 z* 8) ERROR OCCURRED DURING I/C OPERATION 
242 z* 9) ERROR OCCURRED DURING NON-J/0 OPERATION 
243 z* 10) UNSAFE OCCURRED 
244 s* 11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
245 PLete eee e eee eee eee eee eee eee ee eee eee Tee 
246 
247 002254 ITEMG1: 
248 
249 s*ERROR 41 
250 
251 ut RH/RM ERROR (MESSAGE) 
252 3* TEST ERR PC TST PC DRIVE 
33 -* STMPO SERRPC $REGO CHKDRV 
255 002254 051472 EM41 
256 002256 053363 CH41 
257 002260 054166 D141 
$26 002262 054452 DF 41 
260 stERROR 42 
261 
262 3° RH/RM ERROR (MESSAGE ) 
263 i* TEST ERR PC TST PC DRIVE RMCS1 RMCS2 RMDS 
eee ie S™TMPO =SERRPC ~$REGO CHKDRY =RM.REG RM.REG*+10 RM.REG*12 
266 002264 051472 —EM41 
267 002266 053421 DH42 
268 002270 654176 DT42 
297 002272 054456 DF42 
271 s*ERROR 43 
272 


273 if RH/RM ERRQR (MESSACE » 


“ZRMVBO _RMO5/ 3/2 EXT*D DR TST 


FRROR POINTER TABLE 


279 002274 
280 002276 


002300 
282 002302 


295 002304 
296 002306 
297 002310 
298 002312 


311 002314 


ot ad and = od 
NAMES W 


327 002324 
328 002326 
329 002330 
330 002332 


051472 
053421 
054214 
054462 


051472 
052603 
054240 
054472 


051472 
052603 
054300 
054506 


051506 
052603 
054%00 
054506 
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SEQ 0046 
TEST ERR PC TS? PC DRIVE RMCS1 RMCS2 = RMDS 


S™MPO  $ERRPC $REGO CHKDRV RM.REG RM.REG*10 RM.REG*12 
RMER1 RMMR2 RMER2 


RM.REG+14 RM.REG*+40 RM.REG+42 


: RM.REG+14 RM.REG*40 RM.REGS42 

EMG 1 

DH42 

DI43 

DF4S 
S*ERROR 46 
>" RH/RM ERROR (MESSAGE) 
:* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
:*  $TMPO —-$ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC-DS 
ie RMCS1 RMCS2 RMD S RMHR RMD 
te RM.REG  RM.REG+10 RM.REG#12 RM-REG*36 RM.REGs 34 RM.REGeO6 
t* -RMERI RMMR2 RMER2 


CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


RMDB 
RM.REG+14 = RM.REG*40 = RM.REG+42 = RM.REG*2 = RM.REG*+4 QM. REG*Z2 


EMG1 

DH12 

D144 

DF4S 
S®FRROR 45 
i” RH/RM ERROR (MESSAGE ) 
i* TEST ERR PC TST PC DRIVE CYLNDR- TRACK SECTOR 
3* STMPO $ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.D0S 
Fee RMCS1 RMCS2 RMDS RMHR RMDC RMDA 
Fess RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RAM.REG*+34 RM_REG+06 
if RMER1 RMMRO RMER2 RMWC RMBA 


CYLNOR, TRACK, AND SECTOR ARE DECIMAL 


2 RMBA 
RM.REG+14 RM” REG*+40 —RM.REG*42 RM REG#2 RM.REG+4 RM REGS 22 


E—M41 

DH12 

DT45 

DF45 
Z*ERROR 46 
it FATAL WRITE CHECK ERROR (MESSAGE) 
Pe! TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
:* STMPO S$ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC .DS 
as RMCS1 RMCS2 RMDS RMHR RMD C RMDA 
‘is RM.REG ats REG*#10 ms REG+12 RM, eS RM.REG+34 RM, Abesee 
i? RMER1 MMR? RMER 
*& 
"a 


CYLNOR, TRACK, AND SECTOR ARE DECIMAL 


EM46 
DHI2 
D145 
DFS 


CZ7RMVBO RMO5/3/2 EXT'D DR TST 


34 “ES” DARAMETER POINTERS AND TABLES 


eee weed ed et ed 
CODNANE WR HOOD NOUAWN - 


mM 2 2 


002370 
602372 


002374 
00237é 
002400 
902402 
002404 
002406 
002410 
002412 
002414 
002416 
002420 
002422 


002442 


002444 


002472 
002474 


000000 
000000 


063132 


17?777 


000000 000000 
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SEQ 0047 


-SBITi TEST SARAMETER POINTERS AND TABLES 


la STORAGE FOR TEST PARAMETERS 
«WORD 0 


RPT: WORD 0 

FC: » WORD 0 

LC: WORD Q 

IC: . WORD 0 

FT: ~WORD 0 

LT: ~WORD 0 

IT: . WORD 0 

FS: WORD 0 

LS: -WORD OQ 

PAT: WORD 0 
-WORD 0,0,0 

NC 1: ~WORD 0 

NCc: -WORD 0 

3 TABLE OF aaa Si POINTERS 

PRMPT: WORD RMO 
WORD Pay 
~WORD PRM2Z 
-WORD PRM3 
.WORD  PRMG 
-WORD PRM5 
-WORD PRM6 
.WORD PRM? 
-WORD PRMI0 
-WORD PRMI11 
-WORD PRMi2 
.WORD PRM13 
-WORD PRMI14 
.WORD PRMIS 
-WORD PRMI6 
-WORD PRM17 
-WORD PRM20 
«WORD PRM21 
.WORD = PRM2?2 
-WORD 0 

: TABLE OF PARAMETER UPPER LIMITS” 

PPMLMT : ~ WORD 32767 
-WORD 822. 
-WORD 822. 
«WORD 822. 
-WORD 4& 
-WORD 4 
WORD 4 
. WORD 18. 
WORD 18. 
. WORD 18. 
. WORD 31. 
WORD «=31, 
«WORD 177777 


THIS WORD TELLS WHICH OF THE 
TFOLLOWING PARAMETERS ARE TO BF USED 


SREPEAT COUNTS FOR ALL TESTS 


FIRST CYLINDER 
LAST CYLINDER 

Z INCREMENT CYLINDER 
ZFIRST TRACK 


TLAST TRACK 

INCREMENT TRACK 

FIRST SECTOR 

;LAST SECTOR 

PATTERN CODE 

SFILLER WORDS FOR COMMON TABLE USED BY THE 
7: °OPNTST’ ROUTINE. 


NEW CYLINDER ADDRESS 
NEW CYLINDER ADDRESS 


7 TERMINATOR 


ect eaaig 


PUN AAA EA OT 


at 


. 
— 


o 2 © © © © © we ew ee we 
- 
_— 
- *eee* 
- 7 2 2 ow 


ge 
ne 


©7RMVBO RMO5/3/2 EXT'D DR TST 
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35 TEST PARAMETER POINTERS AND TABLES SEQ 0045 
43 
he , TABLE OF PARAMETER MESSAGE POINTERS 
45 002676 047210 PRMMSG: .WORD MSG.R 
46 002500 047212 .WORD MSG.FC 
47 902502 047215 .WORD MSG.LC 
48 002504 047220 .WORD MSG.IC 
49 002506 047223 WORD MSG.FT 
50 002510 047226 .WORD MSG.LT 
51 002512 047231 .WORD MSG.IT 
52 002514 047234 .WORD ME5.FT 
53 002516 047240 .WORD MES.LT 
34 002520 047244 .WORD MES.IT 
55 002522 047250 .WORD MSG.FS 
28 002524 047253 .WORD MSG.LS 
58 :STATUS/ERROR INDICATOR MESSAGES POINTER TABLE 
2 =DEFAULT VALUES OF TEST PARAMETERS 
61 002526 002227 000310 O00000 DFLT: .WORD 2227,200.,0,822.,0,0,0 ;RECAL/PANDOM SEEK (TO) 
62 602544 006677 000144 000000 WORD 6677,100.,0,256.,0,0,0,0,0,0,0 ;SEEK/SEEK (11) 
63 002572 002237 000001 000000 "WORD  2237.1,0,822.,1.0,0,0 | : INCREMENT SEEK (T2) 
64 002612 002237 009010 000000 WORD $535" .0,512.,1,0,0,0 ;STEPPING SEEK (13) 
65 902632 002237 000001 009000 WORD 2237,1,0,822..1.0,0,0  ;OSCILLATING SEEK (14) 
66 002652 002237 090001 000000 WORD 2237,1,0,822.,1.6.0,0 ;CONVERGING/DIVERGING SEEK (15) 
6? 062672 002237 000001 000000 WORD 2237,1,0,822.,1,6,0,0 SERVO ADDRESSING LOGIC NOISE (16) 
68 002712 000667 011610 000000 WORD 667,5000. 0,822. ,0,4,0,18. RANDOM SEEK TEST (17) 
69 002732 000237 000001 000000 WORD  237.1,0,822.,100..0,0 | :SERVO SETTLE DOWN TES? (110) 
70 002750 602237 000001 000000 «WORD 2237,1,0,822.,1,0,0.0 sALL SEEKS TEST (111) 
71 002770 002223 000001 000000 WORD 2223,1,0,0.0,0 =ROTAT ONAL SPEED TIMING TEST (T12) 
72 003 000007 000001 000000 . WORD 7,1,0,822. ZONE CYLINDER SEEK TIMING TEST (113) 
73 003014 (000007 000001 000000 .WORD 7,1,0,220. TAVERAGE SEEK TIMING TEST (114) 
74 00%024 000007 000001 000000 WORD 7,1,0,822. >MAXIMUM SEEK TIMING TEST (115) 
75 003034 000223 000001 0000 «WORD 223,1,0,0,0 SECTOR ADDRESSING TEST (116) 
76 003046 002003 000001 0 ‘wORD 2008,1.0,0 > TRACK ADDRESSING TEST (117) 
77 003056 017777 000001 00 "WORD 17777,1,0,821..64..0,4.1-0,18.,1.1.0,177777 :DATA TES: (120) 
78 003112 000007 001750 000000 "WORD 7,1000.;0.821. ZEXERCISER (121) 
ik 003122 000007 011610 00 «WORD ,5000.,0,255 *SEEK TIME ADJUSTMENT TEST (122) 
81 PARAMETER TABLES 
83 ;RECAL/RANDOM SEEK (10) 
84 003132 002227 PRMO: WORD 2227 
85 003134 000310 .WORD 200. 
86 093136 000000 .WORD 0 
87 003140 001466 -WORD 822. 
88 003142 000000 .WORD 0 
89 003144 000000 WORD 0 
30 003146 000000 .WORD 0 
92 sSEEK/SEEK (11) 
93 003150 006677 PRM1: .WORD 6677 
94 003152 000144 -WORD 100. 
95 003154 000000 «WORD 0 
96 003156 000400 .WORD 256. 
97 003160 000000 -WORD 0 
98 003162 000000 -WORD 0 
99 003164 000000 ~WORD 0 


CZRMVBO RMOS/3/2 EXT'D DR TST 
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36 TEST PARAMETER POINTERS AND TABLES 

106 003166 000000 .WORD 0 
101 003170 000000 ‘wORD O 
102 003172 000000 ‘wORD OO 
103 003174 000000 “wORD 0 
105 > INCREMENT SEEK (T2) 
106 003176 002237 PRM2: .WORD 2237 
107 003200 000001 "WORD 1 
108 002202 000000 “wORD 0 
109 003206 001466 “WORD 822. 
110 003206 000001 “WORD 1 
111 003210 000000 “WORD 0 
112 003212 000000 [WORD 0 
113 003214 000000 "wORD 0 
115 :STEPPING SEEK (13) 
116 003216 002237 PRM3: WORD 2237 
117 003220 000001 ‘wORD 1 
118 003222 000000 “WORD 0 
119 603224 901000 “WORD 512. 
120 003226 000001 “WORD 1 
121 003230 000000 -WORD 0 
122 003232 000000 “WORD 0 
123 003234 000000 “WORD 0 
125 ZOSCILLATING SEEK (T4) 
126 003236 002237 PRM4: WORD 2237 
127 003240 000001 SWORD 
128 003242 000000 “WORD 0 
129 003244 001466 “WORD 822. 
130 003246 000001 <WORD 1 

| 131 003250 000000 -WORD 0 
132 003252 000000 -WORD 0 

| 133 003254 000000 “WORD 0 
135 = CONVERGING/DIVERGING SEEK (15) 
136 003256 002237 PRM5: WORD 2237 
137 003260 000001 .WORD 1 
138 003262 000000 “WORD 0 
139 002264. 001466 “WORD B22. 
140 003266 000001 -WORD 1 
141 003270 000000 “WORD 0 
142 003272 000000 “WORD 0 
143 003274 000000 -WORD 0 
145 ;SERVO ADDRESSING LOGIC NOISE GENERATOR (T6é) 
146 003276 002237 PRM6: .WORD 2237 
147 003300 000001 ,WORD 1 
148 003302 000000 “WORD 0 
149 003304 001466 .WORD 822. 
150 003306 000001 -WORD 1 
151 003310 000000 ;WORD 0 
152 003312 000000 “WORD 0 
133 003314 000000 -WORD 0 
155 sRANDOM SEEK TEST (17) 

156 003316 000667 PRM7: WORD 667 


SEQ 0049 


CZRMVBO RMOS/3/2 EXT’ 
1037 TEST PARAMETER 


157 003320 
158 003322 
159 324 


172 003352 


175 003354 
6 C03356 


212 003442 
213 003444 


D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE 95 


POINTERS AND TABLES 


011670 


000022 
000237 
000001 
000000 
000000 


002237 


0 

000000 
000007 
000001 
000000 
001466 
000007 
007001 


000000 
000334 


000007 


«WORD 5C00. 
«WORD 0 
«WORD 822. 
«WORD 0 
-WORD 4 
-WORD 0 
«WORD 18. 
SERVO SETTLE DOWN_TEST (110) 
PRM10: .WORD 237 
. WORD 
.WORD QO 
WORD = 82. 
«WORD 100. 
«WORD 0 
-WORD 0 
ALL SEEKS TEST (1117) 
-WORD 1 
-WORD 0 
-WORD 82e. 
-WORD 1 
-WORD OQ 
-WORD 0 
-WORD 0 
ROTATIONAL SPEED TIMING TEST (T12) 
PRM12: .WORD 222 
-WORD 1 
-WORD 0 
«WORD 0 
«WORD 0 
-WORD 0 
ZONE CYLINDER SEEK TIMING TEST (113) 
PRM13: .WORD 7 
«WORD 1 
-WORD 0 
«WORD 822. 
ven AGE SEEK TIMING TEST (114) 
PRM14: .WORD 7 
-WORD 1 
«WORD 0 
-WORD 220. 
jMAXIMUM SEEK TIMING TEST (115) 
PRM15: .WORD 7 
-WORD 1 
«WORD 0 
«WORD 822. 
SECTOR ADDRESSING TEST (116) 
PRM16: .WORD 223 
«WORD 1 
«WORD 0 


SEQ 0050 


038 


CZ7RMVBO RMOS/3/2 EXT'D OR TST 
TEST PARAMETER POINTERS AND TABLES 


248 003532 
249 003534 


000000 
000U00 


002003 
000001 
000 


000 
000000 


017777 


000000 
177777 


000007 
001750 
000000 
001465 
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. WORD 0 

WORD 0 
TRACK ADDRESSING TEST (117) 
PRM17: .WORD 2003 

WORD 1 

. WORD 0 

. WORD 0 
DATA TEST (T20) 
PRM20: .WORD 17777 

. WORD 1 

WORD 

WORD 821. 

. WORD 64. 

. WORD 0 

. WORD 4 

WORD 1 

~ WORD 0 

. WORD 18. 

WORD ] 

. WORD 1 

WORD 0 
PIRN15: WORD 177777 
ZEXERCISER (T21) 
PRM21: WORD 7 

WORD 1000. 


WORD 0 
«WORD 821. 
SEEK TIME ADJUSTMENT TEST (122) 
PRM22: .WORD 7 
«WORD 5000. 
-wORD 0 
-WORD = 255. 


SEQ 0051 


039 


| CZRMVBO RMO5/3/2 EXT'D OR TST 
DATA PATTERN POINTERS AND TABLES 


1 
2 
3 003536 


003574 


003576 
003600 
003602 
003604 
003606 


ed weed eed od od aed ed od 
SCOWMNAUSWAI—OOON 
W 
On 
—_ 
(a8) 


37 003666 
38 003670 
39 003672 
me 003674 


42 003676 
43 003700 
44 003702 
45 003704 


003576 


177777 


177776 
177774 
177770 
177760 
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-SBTTL DATA PATTERN POINTERS AND TABLES 


PAT.PT: .WORD 
WORD 


. WORD 
WORD 
. WORD 
. WORD 
» WORD 
. WORD 
. WORD 
«WORD 
. WORD 
. WORD 
» WORD 
. WORD 
. WORD 
. WORD 


PATO: WORD 
WORD 
.~ WORD 


PATI: - WORD 


PAT2: WORD 
. WORD 
. WORD 
. WORD 


133333 


077777 
177777 


177776 


177760 


DATA 


PATTERN 0 (WORST CASE) 


PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 


PATTERN 1 


PATTERN 2 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
1 
1 
1 
1 
1 
1 


WEAN © 


SEQ u's 


0 


ZRMVBO RMOS/3/2 EXT'D DR TS’ 
DATA PATTERN POINTERS AND TABLE > 


101 004056 
102 004060 


177740 
177700 


6000 
140000 
100000 
000000 


000000 
000000 


000000 
177777 
177777 
177777 
000000 
000000 
177777 
177777 
000000 
177777 
000000 
177777 
000000 
177777 


133331 
133333 
133331 
133331 
133331 


133331 


052525 
052525 
052525 
125252 
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«WORD 177740 
-wORD 177700 


WORD 177000 
wORD 176000 
WORD 174000 
WORD 170000 
WORD 160000 


“wORD 000000 
PATS: -WORD 000000 


WORD 177777 
WORD 177777 
wORD 000000 
wORD 000000 


WORD 0000C0 
WORD 177777 
WORD 000000 
«WORD 17777 
-WORD 000000 
«WORD = 177777 
PATS: . WORD 133331 
-WORD 133331 
WORD 133331 
WORD 133331 
WORD 133331 
WORD 133331 
WORD 13333) 
WORD 133331 
WORD 133331 
«WORD 153333) 
WORD 133331 
WORD 133331 
WORD 133331 
WORD 133331 
WORD 133331 


"WORD 133331 
PATS: - WORD 052525 


WORD 052525 
WORD 052525 
WORD 125252 
WORD 125252 
WORD 125252 
WORD 052525 
WORD 052525 
-WORD 125252 
«WORD = 125252 


ZPATTERN 3 


ZPATTERN 46 


PATTERN 5 


SEQ 0053 


5 


C 
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CZRMVBO RMO5/3/2 EXT'D DR TST 


SEQ 0054 


DATA PATTERN POINTERS AND TABLES 


PATTERN 6 


MMA ALALALA ALAA LAAN UN 


PATTERN 7 


oO nN 
< < 
<x 
Qa a 
WNMAUNAL AWAWNAWIAANAANAIAAAWANIA MMA WMA RKUOAIQIAMI NAIA CIA NIA CU 
NNAMNAN NAWAANAAAADAAAAAAAAW MMI QU COIOINA KU OIA QUID QUA CU 
NNUNNUN AMNNMNMANNANANANANAWIAW OOO — — ODN — OR OK OK 
WANMNAN NAANNANNANAAANAAIAIAIN DQAN NAA QUAN A QUIN KUN QU 
On Or Or mmr errr Kremer eer reer mee O0O0Ff KK OOK KOR ORK Oe- 
NToOonwT wOOoN oONTOON TOONS OONTOONYST COONS QOoON. 
OO0 Orr rerr rr err rere eree Cet we mel soe seal coal wel ool ool ol eel eel el ool mal one 
vyriwy >a 
S3838 SSSSSSESSSSESE53 ESESESISSESESESS 
(o>) ao oO oO oO lelelelelelolele} Omo 
DOA BESBSOT NMI NOR DAOT NMS NOR MRI NM FN NR OAO- 
DODO ODO Cee NINN NICICICI RR, CU AIM TTDI OI OP oP 
A i eel coed coll ool Ll eel moe el eel ee ee cool col mee eel el el eel el ee col eee el ee ee ee el el el ee el ed el el 


PATTERN 8 (WORST CASE) 


vals Alaa als alse alalalalalwal alae) 


oo 
_— 
< 
a 
LA PALA PALA RAUNT UA BALA IA LAIN) 
WIA IAIA MLA PALA RUA IAN IU NY 
AMAA PAA PALANAN UA IN) 


A MAMA MAU BS LAIN BALAI 
AMA MAM LAMA MLA AUN PALA RY 
ee 


wOoOn ons OONAOON 
RANNAANNONOIN 


S¥SSIIISSSSSIIAS 


WMA AAA A DALAIN 
errr rr eee 


Mh a a 


FZRMVBO RMOS/3/2 EXT'D Ne TST 
DATA PATTERN POINTERS .ND TABLES 


160 
161 
162 
163 


184 


fe 7) 
w 


eee eet et od oes I) 
BRAN LSSBLR 


004236 
004240 
004242 
004244 


004374 
004376 


00°00 ° 
000002 
000004 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 


077777 


172666 
155555 


155555 


077777 
137777 
157777 


167777 


173777 
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PATS: «WORD 
«WORD 
«WORD 
~ WORD 
. WORD 
. WORD 
«WORD 
. WORD 
WORD 
. WORD 
. WORD 
. WORD 
« WORD 
. WORD 
. WORD 


PAT10: WORD 
. WORD 
» WORD 


PATI1: .WORD 


PAT12:  .WORD 


000001 


100000 


177776 
177775 


077777 
172666 


ek ek ed ed ed net ed med eed eed eed ee ed 


155555 


077777 
137777 
157777 
167777 
173777 


PATTERN 9 


PATTERN 10 


PATTERN 11 


sPATTERN 12 


SEQ 005* 


“7RMVBO RMOS/3/¢ EXT'’D DR TST 


DATA PATTERN POINTERS AND TABLES 


004474 
004476 


004562 


175777 
176777 
177377 
177577 
177677 
177737 
177757 
177767 
177773 
177775 
177776 


153333 
066667 
153333 


066667 
153333 
066667 


000000 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


177777 


000000 
000000 


PAT13: 


PATI4: 


PAT15: 


» WORD 
WORD 
. WORD 
«WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 


. WORD 
. WORD 
- WORD 
- WORD 
. WORD 
. WORD 
» WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
- WORD 
. WORD 


177776 


153335 
066667 
153333 
066667 
153333 
066667 
153333 
066667 
153333 
066667 
153333 
066667 
153333 
066667 
153333 
066667 


000000 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


177777 
177777 


000000 
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PATTERN 13 


ZPATTERN 14 


PATTERN 15 


SEQ 0056 


44 


mee cennnnceneean ES fe werent ~ 


te eee eerie 
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DATA CATTERN POINTERS AND TABLES 


274 004564 000000 
2/5 004566 000000 
276 006579 000000 
277 904572 000000 
278 004574 000000 


000000 


000000 


SEQ 0057 


“7RMVBO RMO5S/3/2 ExT'D DR TST 


Qe 


Oui Bun a 


004576 
004600 
004602 
004604 
004610 


604650 
004650 
004652 
004654 


011600 
005740 
022626 
104401 
000417 


010046 
104402 
000240 


DATA PATTERN POINTERS AND TABLES 


004612 


004656 000404 


012737 
000402 


005037 
005037 
000411 


004660 177777 
004666 


001324 
001322 
012737 
000402 


005037 
012737 


177777 


WN =O ODBNAWMEWA-OOON 


004702 
004710 


004712 
004716 


004724 


001324 


| 8 
177777 


26 
28 
29 
30 
31 004734 
33 


| 004736 


000000 
000005 
012706 001114 
001154 
001100 
025356 


004742 
004744 
004 750 
C04752 


005070 
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001324 


001324 


001322 


026526 


001131 
001722 
001*24 


3 THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: 


3:65$: 
64$: 


.SBITL 
START3: 


STARTI: 
STRTTA: 


START4: 
START2: 


STRT2A: 
START: 


. SBITL 
37 CLEAR 


MOV (SP) ,RO sSAVE PC WHERE THE TIME OUT OCCURED 
TST =(ROS “ADJUST PC =2 
CMP (SP)+,(SP)« “RESTORE STACK POINTER 
TYPE ,65$ cc TYPE ASCIZ STRING 
BR 64$ °:GET OVER THE ASCIZ 
VASCIZ  <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
MOV RO,-(SP) ;SETUP FOR TYPING OUT PC , 
NOP :PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
=T0 STOP ON UNEXPECTED TIMEOUT. 
BR START! ;BRANCH TO START1 
START OF PROGRAM 
MOV #-1,8USADR :GET BUSADR FLAG 
BR STRTTA 
CLR BUSADR ZCLR BUSADR FLAG 
CLR CNTRLC 7NO CONTROL °'C’’ 
BR START 
MOV #-1,BUSADR zSET BUSADR FLAG 
BR STRT2A 
CLR BUSADR :CLR BUSADR FLAG 
MOV #1, CNTRLC =SET CONTROL "C’' FLAG 
NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE <4 “OF WORD 
RESET =CLEAR THE WORLD 
INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
MOV ASCMTAG,R6 z:FIRST LOCATION TO BE CLEARED 
CLR (R6) + ‘CLEAR MEMORY LOCATION 
CMP #SWR RO > DONE ? 
-~6 ;zLOOP BACK IF NO 
MOV ASTACK,SP cc SETUP THE STACK POINTER 
S INITIALIZE A FEW VECTORS 
MOV ASSCOPE ,a#JOTVEC ::10T VECTOR FOR SCOPE ROUTINE 
MOV #340, aMlOTVEC+2 ;:LEVEL 7 
MOV ASERROR, aWEMTVEC =; EMT VECTOR FOR ERROR ROUTINE 
MOV #340, aMEMTVEC+2 ::LEVEL 7 
MOV #STRAP,a#TRAPVEC :: TRAP VECTOR FOR TRAP CALLS 
MOV #340, aaTRAPVEC+?:LEVEL 7 
MOV SENDCT,SEOPCT ::SETUP END-OF-PROGRAM COUNTER 
MOV #176545, SHINUM ::PRIME THE RANDOM NUMBER GENERATOR 
MOV #123456.$LONUM ::BOTH HIGH AND LOW WORDS 
CLR STIMES > INITIALIZE NUMBER OF ITERATIONS 
CLR $ESCAPE ==CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVE #1, SERMAX ALLOW ONE ERROR PER TEST 
MOY #..$LPADR SDINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #. SLPERR “SSETUP THE ERROR LOOP ADDRESS 


CZRMVBC RMOS/3/2 EXT*D DR TST 
IN: TIALIZE THE COMMON TAGS 


005170 


005206 
005214 


005222 


005240 
005244 


005320 


005320 
005324 
005326 
005334 
005336 
C05344 
005346 
005350 
005352 
005360 


005360 
005364 
005 366 
005372 
005374 
005402 


012637 
005037 


000425 


005737 
001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 


013737 


000004 
005136 
177570 
177570 
177777 


005144 
000176 
000174 
000004 


001242 
000200 


001256 


004576 
000300 


177777 
021560 
005246 


000042 
001254 
001154 


000001 


001174 
001224 


001530 
001532 
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000004 
001154 
001156 
174022 


001255 
001154 


000004 
000006 


000042 


000001 
0001 76 


001150 


iiS1ZE FOR A HARDWARE SWITCH REGISTER. 
Z:EQUAL TO A ‘'=1"', 


SEQ 0059 


IF NOT FOUND OR IT iS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 


MOV @AERRVEC ,-( SP) <2 Save ERROR VECTOR 
MOV #64$, aMERRVEC SET UP ERROR VECTOR 
MOV ADSWR ,SWR ETUP FOR A HARDWAPFE SWICH REGISTER 
MOV #DDISP, DISPLAY CAND A HARDWARE DISPLAY REGISTER 
CMP a-1 /aSWR cTRY TO REFERENCE HARDWARE SWR 
BNE 66$ «BRANCH IF NO TIMEOUT TRAP OCSURRED 
::AND THE HARDWARE SWR IS NOT. - -1 
BR 653 + BRANCH IF NO TIMEOUT 
643: a #65$, (SP) 77SET UP FOR TRAP RETURN 
658: MOV #SWREG, SWR 3zPOINT TO SOFTWARE SwWR 
MCV #DISPREG, DISPLAY 
66$: MOV (SP)+,@MERRVEC ;;:RESTORE ERROR VECTOR 
CLR SPASS CLEAR PASS COUNT 
BITS MAPTSIZE , SENVM :iTEST USER SIZE UNDER AFT 
BEQ 67$ 32YES,USE NON-APT SWITCH “ 
6 7s: MOV #SSWREG, SWR :;NO,USE APT SWITCH REGISTER ¢ 
SETUP a: TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS be 
#BADTMO,ERRVEC ;:SETUP FOR UNEXPECTED TIMEOUT 
MOV #PRG, ERRVEC+2 ZLEVEL 6 
.SBTTL TYPE PROGRAM NAME 
2: TYPE THE NAME OF THE PROGRAM If FIRST PASS 
INC #~1 RST TIME? 
BNE eas + BRANCH IF NO 
CMP #SENDAD ,a442 tc ACT=-11? 
BEQ 68$ ; BRANCH IF YES 
TYPE 69$ 22 TYPE ASCIZ STRING 
BR 68$ GET OVER THE ASCIZ 
bee -ASCIZ <CRLF>aCZRMVBO - *RMOS/3/2 EXTENDED DRIVE TESTa@<CRLF> 
~SBTTL GET VALUE FOR SOF TWARE ee REGISTER 
TST 42 ARE WE RUNNING UNDER XXDP/ACT? 
BNE *O$ BRANCH IF YES 
CMPB SENV, #1 7 cARE WE RUNNING UNDER APT? 
BEQ 70$ 2 BRANCH IF YES 
CMP SWR ,ASWREG i: SOFTWARE SWITCH REG SELECTED? 
BNE 71$ 7 BRANCH IF NO 
ee oye s:GET SOF T-SWR SETTINGS 
ao MOVB #1,$AUTOB sSET AUTO-MODE INDICATOR 
MOV #SREGAD ,RO :FIRST ADDRESS 
1$: CLR (RO) + - CLEAR VARIABLE STORAGE 
CMP ASBELL RO DONE ? 
BNE 1$  NO--BRANCH 
MOV TPS, ,STPS = sSETUP THE STATUS AND BUFFER SEG'S 
MOV TPB,$TPB ‘FOR THE TYPE ROUTINE 


3 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 


;PAPER TAPE 


(MANUAL), 


ACT11, XXDP CHAIN OR DUMP 


CZ7RMYBO RMO5/3/2 EXT'D DR TST 
4? GET vALUE FOR SOF TWARE 


005410 


77 


G1 
92 
93 


005520 
C05524 


005526 
005532 
005534 
005540 


005562 
005562 


005600 


005664 
005664 
005679 


005764 
005764 
C05770 
005774 
005776 


005037 


000412 


005046 
113716 
104403 


005227 
001114 
104401 
000410 


005046 
113716 
104403 

001 

000 
104401 
000431 


104401 
0004 35 


004737 
005227 
001002 
004737 


105037 
105037 
(105037 
05037 
105037 
105037 
105037 
105037 
004737 
012737 
006737 


001479 
000016 


000040 
000007 


001470 
000042 


005462 


001470 


001231 


177777 
005542 


001470 


005602 


005672 


024060 
177777 


046624 


001472 
001473 
001474 
001475 
001476 
001477 
001500 
001501 
027364 
000001 
03545C 
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SWITCH REGISTER 


000041 


001470 
001470 


001120 


os: 


-73$: 
55 $: 


3$: 


:75$: 
518: 


3277$: 
76$: 


33,788: 
4$: 


SRTINT: 
C 


INC 


XXDP 
16,0441 
4$ 


a440,XXDP 
47 ,XXDP 
es 


SEQ 0060 


CLEAR 'XXDP* LOAD DEVICE STORAGE 
LOADED FROM AN RMO5/3/2 ? 

BR IF NOT 

iGET ava INDICATOR AND NUMBER 
HIST A VALID NUMBER ? 


iNO, DEFAULT TO DRIVE 0 
SCHAIN MODE OR ACT11 AUTO ACCEPT ? 
7BR IF NEITHER 
2 i TYPE ASCIZ STRING 
3GET OVER THE ASCIZ 


2 
<CRLF>/NOT TESTING DRIVE / 


- (SP) 
XXDP, (SP) 
1 

0 

~SCRLF 

4$ 


74 
<CRLF>/TO TEST DRIVE / 


- (SP) 
XXDP, (SP) 


.77$ 


i CLEAR WORD ON STACK 
GET DRIVE ADDRESS 

¢ TYPE THE ADDRESS 
ONLY 1 CHARACTER 
ore LEADING ZEROS 
iCReL 

:GET NUMBER OF DRIVES 


NO TIME THRU HERE ? 
7 TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


sCLEAR WORD ON STACK 


‘;GET DRIVE ADDRESS 


TYPE DRIVE ADDRESS 

ONLY 1 CHARACTER 

WEE A LEADING ZEROS 
TYPE ASCIZ STRING 
[GET OVER THE ASCIZ 


76$ 
/, HALT PROGRAM, * REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


.78$ 


+ TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


4$ 
/WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF > 


PC STKINT 
#~) 


SRTINT 
PC,GETADR 


ERRCN 

ERRCN+1 
ERRCN+2 
ERRCN+3 
ERRCN+4 
ERRCN+5 
ERRCN+6 
ERRCN¢+7 


PC. GETSwR 


> TURN ON THE TTY KEYBOARD INTERRUPT 
ZSEE IF FIRST START 


[BR IF NOT 

:GET OR CHECK THE RH/RM ADDRESS 
3CLEAR DRV O ERROR COUNT 

[CLEAR DRV 1 ERROR COUNT 

CLEAR DRV 2 ERROR COUNT 

CLEAR DRV 3 ERROR COUNT 

CLEAR DRV 4 ERROR COUNT 

CLEAR DRV 5 ERROR COUNT 

CLEAR DRV 6 ERROR COUNT 


DRV 7 ERROR COUNT 

3 CHECK FOR A LINE PRINTER 

SSET ITERATION COUNT TO 3 

7GO CHECK FOR CONTRO. SWITCHES 


©Z7JRMVBO RMOS/3/2 EXT'D DR TST 
48 GET VALUE FOR SOF TWARE 


SRR 


ee ed es = Ss a = — 9 3 2 oa —) 


NORPRO 3a aw ss a 
BWM — O CONDA NEWNAN 


725 


004737 


104401 
010446 


104403 
002 


000 
104401 
105764 
100416 
001020 
105764 
001404 
100006 
104401 
000452 


104401 
000447 


104401 
000416 


104401 
000413 


005737 


001403 
012737 


104401 
000000 
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SWITCH REGISTER 


027426 
€40660 
177777 
027334 
177776 
177777 
001322 


047313 
00123" 


050343 
040532 


040542 


047377 


047352 


047331 


047367 


001470 
001470 
047420 


047342 
050345 


040542 
047445 
000004 


047440 
000005 


047452 


SETVEC: JSR PC,ST.CLK SINITIALIZE THE CLOCK 
)5R PC-RMINIT “CHECK THE DRIVE STATUS 
040610 MOV #-1, SAVEFG ‘SET THE SAVE REGISTERS FLAG 
JSR PC, CNTCLR *GO CLEAR MASSBUS CONTROLLER 
CLR PS TENSURE THE PRIORITY = 0 
INC #~) ‘FIRST TIME THRU HERE ? 
BEQ 1$ “BR IF NO 
TST CNTRLC “CONTROL 'C' SWITCH SET ? 
BNE SRTDRV “CONTINUE IF YES 
1$: CLR R4 “DRIVE TABLE POINTER 
TYPE ,UNSTAT [TYPE "UNIT STATUS‘ 
2s: TYPE $CRLF CRLF 
MOV R4,-(SP) SAVE R4 FOR TYPEGUT 
77 TYPE DRIVE NUMBER 
TYPOS ::GO TYPE--OCTAL ASCII 
\BYTE 2 SS TYPE 2 DIGIT(S) 
"BYTE O += SUPPRESS LEADING ZEROS 
TYPE BLNKS4 “TYPE 4 SPACES 
“STB. ss DRVSTA(R4) “CHECK DRIVE'S STATUS 
BMI S$ “BR IF UNSAFE 
BNE 6$ “BR IF ONLINE 
TSTB —s DRVTYP(R4) “SEE IF OFFLINE OR NONEXISTENT 
BEQ 3$ “BRK IF NONEXISTENT 
BPL 4$ 7BR IF OFFLINE 
TYPE ,NOTRM “DRIVE NOT AN RMOS/3/2 
BR i1$ [CHECK NEXT DRIVE 
33: TYPE ,NOTPRS :DRIVE NOT PRESENT 
BR 11$ “CHECK NEXT DRIVE 
4$: TYPE UNTOFF SDRIVE OFFLINE 
BR &$ [PRINT DRIVE TYPE 
S$: TYPE NOTSAF ZDRIVE UNSAFE 
BR &$ SPRINT DRIVE TYPE 
6$: 1ST XXDP sLOADED FROM THIS DEVICE ? 
BEO 7$ SBR IF NO 
CMPB ss XXDP,RG [LOADED FROM THIS DRIVE 7 
BNE 7$ :BR IF NO 
TYPE ;LODEV “DRIVE IS LOAD DEVICE 
7$: TYPE UNTON SDRIVE ONL INE 
8$: TYPE gBLNKS2 STYPE 2 SPACES 
L 
MOVB  DRVTYP(R4),RO GET DRIVE TYPE 
006316 MOV #SRMO3, 108 TASSUME ADDRESS OF RMO3 MESSAGE 
CMPR #4, RO ‘1S DEVICE AN RMO3 ? 
BEO 9$ ‘TYPE IT IF YES 
006316 MOV #SRMO2, 108 SADDRESS OF RMO2 MESSAGE 
CMP #5, RO ‘1S DEVICE AN RMO2 ? 
BEO 9$ “BR IF YES 
006316 MOV #SRMOS, 108 “ADDRESS OF RMOS MESSAGE 
9$: TYPE :TYPE THE DRIVE TYPE MESSAGE 
*O$: .wORD 0 “MESSAGE ADDRESS HERE 
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49 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0067 


167 006320 005204 11$: INC RG ; INCREMENT ORIVE NUMBER/TABLE COINTER 
148 006322 020427 (©00010 CMP RG ,W8. sFINISHED ? 

149 006326 001300 BNE 2$ 3BR IF NOT 

"50 006330 104401 001231 TYPE -SCRLF i CRLF 


50 


C7RMVBO RMO5./3/2 EXxT’D DR IST 


GET UNIT STATUS 


SD ODNANEWN HO ODNAWUEBWEA a 


Marto oo 


21 006432 
22 


55 0U6572 
56 006574 
57 006576 


005737 
001427 
013746 
063716 
032726 


012701 
105760 


001361 


005037 
032737 
001002 
005137 


104401 
005037 
005000 
01370] 
001017 


000137 


006201 
103011 
005237 


001322 
001320 
001314 
000001 


pee 


001332 
001334 
047727 


027704 
001330 


000001 
040532 
001470 
001470 
040636 


040612 
000400 


040612 


047457 
021514 


001330 
047510 
001231 
000042 


004712 


021550 


021514 
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SEQ 0063 


.SBITL GET UNIT STATUS 
SRIDRV: TST CNTRLC sCONTROL ‘‘C’' START/RESTART? 
BEQ 2$ "NO-~BRANCH 
MOV SAVC SW, - (SP) :GET THE PREVIOUS ‘f.SWR' CONTENTS 
ADD C.SWR, SP) “SET UP TO SEE IF ‘BITOO' {S DIFFERENT 
BIT WAITOO,(SP)+ 7S ‘BITOO’ DIFFERENT ? 
BEQ " ‘BR IF NOT 
001320 MOV C.SWR,SAVCSW :STORE PRESENT ‘C.SWR’ VALUE 
JSR PC,LODFLT “RESET PARAMETERS TO THEIR DEFAU! T VALUES 
1$: JSR PC{GT.PRM “GET PARAMETERS 
TST TSTNMS TANY TEST SELECTED THIS CYCLE? 
BNE 6$ SBR IF YES 
TST TSTNMS+2 “ANY TEST SELECTED THIS CYCLE ? 
BNE 6$ ‘BR IF YES 
TYPE ;NOTEST ‘TYPE 'NO TESTS SPECIFIED’ 
2$: JSR PC,LODFLT :SETUP DEFAULT PARAMETERS 
CLR DRVSEL =NO DRIVES SELECTED 
CLR RO SDETERMINE THE DRIVES THAT 
MOV #1,R1 TARE AVAILABLE FOR TESTING 
38: TSTB — DRVSTA(RO) :1S DRIVE ON-LINE ? 
BLE S$ “BR IF NO 
TST XXDP ZLOADED FROM THIS DEVICE ? 
BEQ 4$ IF NO 
cme XXDP, RO : LOADED FROM THIS DRIVE ? 
001330 4$: BISB  ATABIT(RG) ,DRVSEL :YES, SELECT DRIVE FOR TESTING 
5$: INC RO = TRY NEXT DRIVE 
ASLB RI TANY MORE DRIVES TO CHECK ? 
BNE 3$ “BR IF YES 
68: CLR SEEKFG :CLEAR SEEK FLAG 
001314 BIT #5W08,C.SWR 300 SEEK rae [ATA TRANSFER? 
BNE 7$ + YES=-BRANCH 
COM SEEKFG NO 
TYPE DRIVES :"DRIVES(S) TO BE TESTED' 
CLR SENDCT “DETERMINE PASSES TO MAKE AND 
CLR «RO :THE DRIVES TO BE TESTED 
MOV DRVSEL .R1 TANY DRIVES SELECTED? 
BNE . 9$ > YES--BRANCH 
TYPE , NONE : | NONE * 
TYPE  ,$CRLF CRoLF 
TST an2 TANY MONITOR PRESENT ? 
BNE “BR IF YES 
JMP START2 SRETURN TO °*C* INPUT 
8$: DEC “THESE TWO LOOPS ARE ADDED TO 
BNE =? ‘WAIT FOR TTY 
DEC RO 
BNE <2 
JMP $GET42 SRETURN CONTROL TO MONITOR 
9$: ASR R1 LREPORT THE DRIVES TO BE TESTED 
BCC 108 


GIVE THIS DRIVE A PASS 


“7RMVBO RMOS/3/2 EXT'D DR TST 


GET UNIT SFATUS 


010046 
104403 


005200 


000763 


104401 
013737 
005737 
003006 
032737 
001402 
104401 
000414 


047515 


001231 
021514 
001342 
036000 


047520 


021506 


001332 


108: 


11$: 


12$: 





MOV 80,-(SP) 
TYPOS 
-BYTE 1 
BYTE 0 
TST R 
BEY 11$ 
CCMA 
R 
9 


1 
1 
TYPE C 
0 
$ 


.SCRLF 

MOV SENDCT ,SEOPCT 
CLKSTA 
12$ 

BIT #36000, TSTNMS 
12$ 


TYPE »NOCLOK 
BR RSTRI1 
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:SAVE RO FOR _TYPEOUT 
$360 TYPE*-OCTAL ASCII 
sTYPE 1 DIGIT(S) 
* SUPPRESS LEADING ZEROS 
sMORE DRIVES? 
;NO=-BRANCH 


“FORM DRIVE NUMBER 


i CRLF 

:I1S KW11-P AVAILABLE ? 
[BR IF YES 
ANY TIMING TESTS TO BE PERFORMED ? 


:BR_IF NO 
TYPE NO KW11-P CLOCK MESSAGE 


052 


CZRMVBO RMO5S/3/2 EXT'D DR TST 
PROGRAM RESTARTS HERE 


006662 

06666 
006670 
006674 
006676 


006702 
006706 


006712 
006716 
006724 
006732 


233 os 
DOODONAMESWH-OVDONAUSWHS 
So 


54 007150 


005737 
001022 
005737 
001402 
000137 
104401 
000137 


005037 


000766 
013702 


000731 
004737 


006101 


001330 
000042 


021550 
047703 
004712 


001352 
000001 
001354 


001352 
001354 


001352 
040532 


001354 
021506 


027334 
177776 


000001 


047017 
000143 


047625 


047515 
047605 
000004 
047170 
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001354 
001330 


001330 


001350 
047017 
001314 
047020 


047020 


~SBTTL 
. ENABL 


RSTART: 


1$: 


RSTRT1: 


2s: 
3$: 


4$: 


58: 


6$: 


7$: 


PROGRAM RESTARTS HERE 


DRVSEL 
3$ 

ase 

1$ 
$GET42 
eNODRVS 
START2 


CHKDRV 
#1 ,DRVMSK 
Pe a 


CHKDRV ° 
DRVMSK 
RSTRT1 
2s 


CHKDRV ,R2 
Devernens: 


11 
DRVMSK , DRVSEL 
SEOPCT 
RSTART 


PC,CNTCLR 
PS 


R2,DPB.A 
R2,0P8.8 
R2,DPB.C 
R2,DTADPB 
PC, ,LDCMD 
ASEOP ,BYPASS 
#20,DPB.A+1 
Cele 


Atl 


DPB. 
WSETFORM,DPB.At2” 


RO,CALL. A 


#RECAL DP »DPB.A+2 


R2,-(SP) 
2 
0 


, COMMA 

/ SERIAL 

#4 ,RO 
RM.REG+30,R1 
Re 

R1 


| SEQ 0065 


sANY DRIVES SELECTED ? 
BR IF YES 
sont Pal R PRESENT ? 


BR IF 
RETURN CONTROL TO Fon Ls 
sTYPE ‘NO DRIVES TO TEST 
;NO--GET DRIVE ENTRY & RESTART AT BEGINNING 


START WITH DRIVE 0 AGAIN 





;GO CLEAR MASSBUS CONTROLLER 
sENSURE THE PRIORITY = 
SET THE DRIVE NUMBER INTO THE CPB'S 


7LOAD COMMAND INTO DPB.B AND DP8.C 
3 IF ERROR GO TO END OF PROGRAM 
ASSUME 16 BIT FORMAT 
716 BIT FORMAT REQUESTED ? 
SBR IF YES 
3CLEAR THE "FMT16" BIT 
SET THE FORMAT BIT PER DPB.A+1 
:GO EXECUTE THE COMMAND 
:RECAL=COMMAND 
:GO ee THE COMMAND 


:CR- 

‘TYPE "DRIVE * 

72SAVE Re FOR _TYPEOUT 
33G0 TYPE~-OCTAL ASCII 
::TYPE 2 DIGIT(S) 

‘fee ees LEADING ZEROS 


TYPE 'MBA_SNA * 
[FOUR DIGITS TO TYPE 
;SERIAL NUMBER 


3; ZERO 
:PUT THE NEXT DIGIT 


B 6 
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PROGRAM RESTARTS HERE 


55 007152 006102 ROL R2 ZINTO R2 
007154 006101 ROL R1 
57 007156 006102 ROL R2 
58 007160 006101 ROL R1 
59 007162 006102 ROL R2 
60 007164 006101 ROL R1 
61 007166 006102 ROL 
62 007170 062702 000060 ADD &'0,R2 sMAKE IT ASCII 
63 007174 010227 MOV R2,(PC)¢ SAVE IT 
64 007176 000000 8$: .WORD 0 
65 007200 104401 00/776 TYPE ,8$ : TYPE 
06 007204 005300 DEC RO sALL DIGITS TYPED? 
67 007206 003357 BGT 7$ =NO -- BRANCH 
68 007210 1044071 | °° 231 TYPE ScRLF CRLF 
es 007214 113737 0014664 0011731 OVB ERR.CT,SERMAX ;SETUP MAX ERROR COUNT 
nas -DSABL LSB 


oo 


SEQ 906¢ 


Cc 6 
C2RMVBU RMOS/3/2 EXT'D DR TST MACRO V04.00 ¢=APR-81 11:57:12 PAGE 14 
PROGRAM RESTARTS HERE SEO QUE” 


1 SESLILALTTTLIITATLT TILT TDA LTDA ATTA TASS SAA 
2 s*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
5 SeAND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 
of 
5 2 *MNEMONI ( VALUE VAR I ABLE 
° i. 
8 reR 1 ITERATIONS (REPEATS) 
9 eFC 0 FIRST CYLINDER ADDRESS 
10 zal 822. LAST CYLINDER ADDRESS 
11 sIC 1 INCREMENT VALUE 
12 ZC OF NC1 FC+IC NEW OR MODIFIED CYLINDER 
13 ADDRRESS 
14 :eNC2 LC=1C NEW OR MODIFIED CYLINDER 
15 ; ADDRESS 
16 a 
17 peFT 0 FIRST TRACK ADDRESS 
18 reLT 4 OR 18. LAST TRACK ADDRESS 
19 elt 1 INCREMENT VALUE 
. 3 NT FTe*lT NEW OR MODIFIED TRACK ADDRESS 
= 
22 1 aFS 0 FIRST SECTOR ADDRESS 
of ZeLs St. LAST SECTOR ADDRESS 
of 
ae BU 
aa -SBITL SEEK TESTS 
29 SATPLIITITTTTTTTTELTTTTATLLLATATSSTT ATTA 
30 “3 THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
31 S*IMPLIED SEEKS WILL BE PERFORMED By ‘READ HEADER AND DATA’’ 
32 > *COMMANDS TO TRACK 'FT'' SECTOR 'FS'' OF THE DESIRED CYLINDER. 
33 :*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 
34 zs TRACK/ SECTOR WORDS OF THE HEADER ARE READ. 
oy SAIL ATTTALTLTETTTTTTTTTTSESTTLTT ALTA ATT 
£3 
44 PLEURA EERE ERATE RAAT EERE REAR R EERE ee eee eee eee 
Z*TEST 0 RECAL/RANDOM SEEK TEST 
Z*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALISRATE COMMAND 
eAND THEN SEEK TO A RANDOM CYLINDER BETWEEN 'FC’’ AND 'UC'. AT 
>= THE COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE CHECKED 
+ *TO ENSURE THAT NO ERRORS OCCURRED. 
LEMUR AAAR AAA RRE AREER EAH EREERARAAAAARARAARAARAAREHER EHH EEE ERS 
007222 *$10: 
007222 000240 NOP 
007224 033737 001540 001332 B11 BITS*#<0*#2>, TS TNMS 3D0 THIS TEST? 
007232 001002 BNE +6 "BR IF YES 
007234 000137 007464 JMP TST1 zNO--JUMP TO TESTI 
007240 012737 Q00000 001116 MOV #0, $STSTNM :SET “EST #0 AND CLEAR (SERFLG) 
067246 004737 030142 JSR PC, LODPRM SLOAP THE PARMETERS FOR THE TESi 
007252 012737 007372 001124 MOV MTESTO,$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
007260 013737 002336 001220 MOV RPT ,STIMES :GET THE ITERATION COUNT 
007266 112737 000031 001131 MOVB #25. , SERMAX :MAX ERRORS ALLOWED FOR TES’ 
007274 012737 000000 001240 MOV «#0, STESTN T:SET TEST NUMBER IN APT MAIL BOX 


rZ7RMYBO RMO5/3/2 EXT'D DR TST 
TQ RECAL/RANDOM SEEK TEST 


C07416 
007420 
007424 
007430 
007432 
007436 
007440 
007444 
007450 
: 007454 
007456 
007456 
#3 007462 


= 
| 9 
| 


CO07464 
007464 


007476 
| 007502 


80 


007554 


032777 


004037 
GO0004 


000240 


112737 
012737 


032777 
001406 
104401 


010000 


047617 
001240 


060107 
002354 
002346 
002342 
007462 
007372 
001106 
030402 
002340 
002340 


026426 
026524 


002342 
002340 


026530 
047050 


030550 


001542 
007672 
000001 


000001 
019000 
047617 
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SEQ 0068 
171644 BIT pag aswR ZINHIBIT TYPING TEST NUMBER 7? 
BEQ +16 ‘BR IF YES 
TYPE MSGTST sTYPE ‘TEST’ 
MOV $TESTN, -(SP) +: SAVE STESTN FOR TYPEOUT 
TYPOS 7360 Fe a Tey rcs ASCII 
-BYTE 2 Zi TYPE 2 DIGIT(S) 
BYTE O 2 SUPPRESS LEADING ZEROS 
047020 MOVB MRECAL,DPB.At2 ;RECAL=COMMAND 
047046 MOVB FS,DP8.8+10 cFS 
047047 MOVB FT. DPB.B+11 ZFT 
047050 MOV LC,D0PB.8+12 zLC 
001350 MOV WEXITO, BYPASS 7GO TO EXITO ON ERROR 
901122 feet MOV HTESTO,$LPADR ;SETUP LOOP ADDRESS 
MOV WSTACK,SP :SET UP STACK POINTER 
JSR RO,CALL.A 360 EXECUTE THE COMMAND 
047050 MOV FC, DPB.8+12 ZINITIAL CYLINDER ADDRESS 
002342 CMP FC,LC ZCYLINDER LIMITS THE SAME / 
BEQ 1$ ‘BR IF THEY ARE 
JSR PC, $RAND sCYCYLE THE RANDOM NUMBER GENERATOR 
MOV SHINUM, -(SP) SUSE THE HIGH RANDOM NUMBER 
CLR -(SP SUPPER DIVIDEND 
MOV LC, PtSP) FORM THE DIVISOR 
INC (SP) : INCREMENT 
SUB FC, (SP) : SUBTRACT THE LOWER LIMIT 
JSR PC,S$DIV iDIVIDE 
ADD (SP)+,DPB.8+12 ;:ADD THE REMAINDER TO THE INITIAL CYLINDER 
ie TST (SP) + sDISCARD THE QUOTENT 
JSR RO,CALL.8 2G0 EXECUTE THE COMMAND 
EXITO: SCOPE :CALL SCOPE ROUTINE 
LEMAR AA AE EEE AAEOREREERAEREREREEEEARREEEAEREEAEEEEEORHKENEE ES 
s*TEST 1 SEEK/SEEK TEST 
teTHIS TEST WILL ata THE DRIVE TO EXECUTE A FORWARD SEEK 
> *CYCLE TO TC. *LS** FOLLOWED BY A REVERSE SEEK CYCLE TO 
eFC, CFT Eg! AT THE COMPLETION OF EACH SEEK, THE PROPER 
‘ # INDICATORS “ARE EXAMINED TO ENSURE PROPER OPERATION. 
PPITTITISTITI TTT i sett iit itt iter i 
TST1: 
NOP 
001332 BIT BITS+<1*2>, TS TNMS 3D0 THIS TEST? 
BNE +6 IF YES 
JMP TST2 =NO-~JUMP TO TEST2 
001116 MOV #1,$TSTNM sSET TEST #1 AND CLEAR (SERFLG) 
JSR PC, LODPRM :LOAD THE PARMETERS FOR THE TEST 
001124 MOV #TESTI,SLPERR :SETUP THE LOOP ON ERROR ADDRESS 
001220 MOV RPT ,STIMES 2GET THE ITERATION COUNT 
001131 MOVB 425. , SERMAX sMAX ERRORS ALLOWED FOR TEST 
001240 MOV #1 ,STESIN ::SET TEST NUMBER IN APT MAIL BOX 
171402 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
GBEQ +16 3BR iF YES 
TYPE -MSGTST sTYPE ‘TEST' 


eu 
4 
— 


007560 


"10 


RMOS/3/2 EXT'D 
SEEK/SEEK TEST 


013746 
104403 


000240 
033737 


012737 
094737 
012737 
013737 
112737 
012737 


032777 


CR TST 


001240 


001466 


007654 
C01100 


030766 
030550 


001544 
010134 


000002 
030142 


000002 
010000 


047617 
901249 


010004 


010132 
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047046 
047066 


001122 


001332 


001116 
001124 
001220 
001131 
001240 


171176 


001122 


001350 


EXI11: 


MOV 
TYPOS 
-BYTE 


CLR 
MOVB 
MOVE { 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOV 


MOV 
JSR 


JSR 
SCOPE 


STESTN,=-(SP) 
r4 
0 
BASFLG 
FS,DP8.8 
LS,DPB.L 
FT,0P8.B 
ates 
eee ee oate 


LC, DPB 
#EXIT1 BYPASS 
#TEST1,$LPADR 


MSTACK,SP 
R(), CALL .C 
RO,CALL.B 


SEQ 0069 


SAVE $STESTN FOR TYPEOUT 
32GO0 TYPE--OCTAL ASCII 

ts TYPE 2 DIGIT(S) 
:2SUPPRESS LEADING ZEROS 


eee BAD SECTOR ENCOUNTER FOR THE DRIVE 


- a ~~ 
AOA ITMNMSM 


’ 
Py 
: 
t 
’ 


iGO TO EXIT1 ON ERROR 
SETUP LOOP ADDRESS 


SET THE STACK POINTER 
3GO EXECUTE THE COMMAND 
3GO EXECUTE THE COMMAND 
iCALL SCOPE ROUTINE 


iy LRU AHAAAEEAHEARAAAHEREEERARAAERARARAAHARERARRAR AHHH HEHEREE EE Ee 


SeTEST 2 


; *WHEN 


CRETE) Seer TEST 
S*THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE as 
Z*CYLINDER ADDRESS FROM ‘FC’' TO 'LC’’ BY THE INCREMENT ‘IC’ 


N THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 


s*°LC"" REVERSE SEEK CYCLES ARE INITIATED; STARTING 
"AT THE LAST LE "NC’ 


T*UNTIL NC’! IS LESS THAN “FC''. 


GAL 


"AND DECREMENTING BY “'IC’’ 


AT THE COMPLETION OF EACH 


>*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION 


PoP Pee Pre POrTTTTTTTTITITITITTTTITTT TT TTT TTT TT 


TSr2: 


1$: 


NOP 
BIT 
BNE 
JMP 


MOV 
JSR 
MOV 
MOV 
MOV 
MOV 


BIT 
Br 
TYPE 
MOV 
TYPOS 
BYTE 
BYTE 


MOV 
MOVB 
MCVB 
MOV 


BLS sence TSTNMS 


TST3 


#2, $TSTNM 
PC ,,LODPRM 
aTEST2, SLPERR 
RPT, STIMES 
#25. , SERMAX 
#2.,$TESTN 


ay eraser 
eMSGTST 
$TESTN,-(SP) 
2 

4 
#1$,$LPADR 
FS, DPB.B+10 


FT,DPB.B+11 
WEXIT2 BYPASS 


300 THIS TEST? 
IF YES 
ZNO--JUMP TO TEST3 


SET TEST #2 AND CLEAR (SERFLG) 
:LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 

MAX ERRORS ALLOWED FOR TEST 
s2SET TEST NUMBER IN APT MAIL Box 


tp vES TEST NUMBER ? 


IF 
: TYPE ‘TEST’ 
SAVE STESTN FOR TYPEOUT 
:i¢0 se patie ASCII 
ic TYPE 2 DIGIT(S) 
7s SUPPRESS LEADING ZERCS 


eee LOOP ADDRESS 


cFT 
:GO TO EXIT2 ON ERROR 


eee RMOS/3/2 EXT'D DR TST 
INCREMENT/SEEK TEST 


118 
119 


142 


143 
164 
145 
149 


150 
151 


1§2 


010132 


010134 


010146 


010152 
010160 


010237 
010240 


010276 
010304 
010370 


0* 3737 
012737 
012706 


000240 
033737 
001002 
000137 


012737 
004737 
012737 
013737 
11273? 
012737 


032777 
001406 
104401 
013746 
104403 

002 

000 


012737 
113737 


“113737 


012737 


013737 
012737 
012706 
004037 


02340 
010034 
001100 
030550 
002344 
002342 
002342 
010076 
001100 
030550 


002344 
002340 


001546 
010354 


000003 
030142 


000003 
010000 


947617 
001240 


010246 


010352 


002340 
010276 
001100 
030550 


F A 
MACRO V04.00 4-APR=87 11:57:12 PAGE 14-3 


047050 
001724 


047050 
047050 


047050 
001124 


047050 
047050 


001332 


001116 


001124 
001220 
001131 
001240 


170%32 


001122 
047046 
047047 
001359 


047650 
001124 


SEQ 0070 
TEST: 
MOV FC ,DPB.8+12 ZFC 
MOV #.,$LPERR :SETUP THE ERROR LOOP ADDRESS 
twee MOV #STACK,SP ZLOAD THE STACK POINTER 
K: 
JSR RO,CALL.B :GO EXECUTE THE COMMAND 
ADD 1C,DPB.8+12 :MOVE TO NEXT CYLINDER 
CMP LC,DPB.8+12 :OUT OF CYLINDERS? 
BGE INCSK 7NO- -BRANCH 
MOV LC,DPB.B+12 
MOV #..$LPERR :SETUP THE ERROR LOOP ADDRESS 
DECS MOV #STACK,SP ;LOAD THE STACK POINTER 
K: 
JSR RO,CALL.B 3GO EXECUTE THE COMMAND 
SUB IC, DPB.B+12 
CMP FC,DPB.8+12 
BLE DECSK 
EXIT2: SCOPE ZCALL SCOPE ROUTINE 
Pee Tec oaiad feces ee fe aie re enn ee ae 
S*TEST 3 STEPPING SEEK TEST 


Z*THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0, 1, 2, 4, 
1*8, 16, 32, 64, 128, 256 AND 512. AT THE COMPLETION OF EACH 
"SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE 

2 *PROPER OPERATION. 


PAAR ee AANA RRA AAAREREREE REE OREREEERH EERE EREHHEREEHEHeNEeREHeees 


TST3: 
NOP 
BIT BITS+<322>, 7S TNMS DO THIS TEST? 
BNE +6 ZBR IF YES 
JMP TST4 NO=-JUMP TO TESTS 
MOV #3, $TSTNM SET TEST #3 AND CLEAR (SERFLG) 
JSR PC,LODPRM “LOAD THE PARMETERS FOR THE TEST 
MOV aTESTS. $LPERR  ;:SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT STIMES :GET THE JTERATION COUNT 
MOVB #25. , SERMAX ZMAX ERRORS ALLOWED FOR TEST 
MOV #3, STESTIN ::SET TEST NUMBER IN APT MAIL B8OXx 
BiT #SW12,aSWR : INHIBIT TYPING TEST NUMBER 7 
BEQ .*16 :BR IF YES 
TYPE »MSGTST ZTYPE ‘TEST’ 
MOV $TESTN,-(SP) SAVE STESTN FOR TYPEOUT 
TYPOS 2220 TYPE=-OCTAL ASCII 
-BYTE 2 re TYPE 2 DIGIT(S) 
BYTE O >: SUPPRESS LEADING ZEROS 
MOV #1$,$LPADR SETUP TEST LOOP ADDRESS 

1$: MOVB FS,DPB.8+10 ik S 
MOVB FT, DPB.B+11 SFT 

feats MOV #EXIT3,BYPASS ;:GO TO BYPASS ON ERROR 

S'5: 

MOV FC, DPB.B+12 FC 
MOV #.,SLPERR :SETUP THE ERROR LOOP ADDRESS 
MOV MSTACK,SP SLOAD THE STACK POINTER 
JSR RO,CALL.8 ‘GO EXECUTE THE COMMAND 


* 7RMYVBO 
*2 


+7 


“ 
4 
% 


RMO5/3/2 EXT*D OR TST 
STEPPING SEEK TEST 
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SEQ 0071 


010314 013701 002344 MOV 1¢,R1 sCYLINDER 1 
010320 012737 ©16320 001124 MOV #., $LPERR , SETUP THE ERROR LOOP ADDRESS 
010326 012706 001700 MOV #STACK,SP sLOAD THE STACK POINTER 
010332 010137 047050 1§: MOV R1,DPB.B+12 :DESIRED CYLINDER 
010336 004037 030550 JSR RO,CALL.8 :GO EXECUTE THE COMMAND 
010342 006301 ASL R1 . ZMOVE TO NEXT CYLINDER 
010344 020137 002342 CMP R1,LC : DONE? 
010350 003770 BLE 1$ sNNO--L OOP 
010352 000004 EXIT3: SCOPE :CALL SCOPE ROUTINE 
; RRR RARAKRAARARAAARAEEAAARARAEAAEARAEAARAERAERARAEARERAKAREHAKREEHH HHA 
Te TEST 4 OSCILLATING SEEK TEST 
2s THIS TEST WILL COMMAND SEEK CYCLES FROM ‘'FC’’ TO ‘NC’ AND BACK 
s*70 "FC. NC’ STARTS AT "FC’' AND INCREMENTS By “'IC’' UP TO CYLINDER 
S*"LC'', THEN 1S DECREMENTED BY ‘‘IC’’ BACK TO CYLINDER ‘FC'’. AT THE 
:*COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
> *EXAMINED TO ENSURE PROPER OPERATION. 
SLUR WT RAEREEEEEAREEEAHAEREARRERERARREREREREHEEHEREREH AREER ED we 
610354 TST4: 
010354 000240 NOP 
010356 033737 007550 001332 BIT BITS+<4*2>,TSTNMS :D0 THIS TEST? 
010364 001002 BNE +6 BR IF YES 
010366 000137 010766 JMP TSTS sNO--JUMP TO TESTS 
010372 012737 000004 007116 MOV 44, STSTNM ZSET TEST #4 AND CLEAR (SERFLG) 
010400 004737 030142 JSR PC,LODPRM :LOAD THE PARMETERS FOR THE TEST 
010404 012737 010524 001124 MOV #TESTS,$LPERR SETUP THE LOOP ON ERROR ADDRESS 
010412 013737 002336 001220 MOV RPT STIMES 3GET THE ITERATION COUNT 
010420 112737 000031 001131 MOVB #25. , SERMAX sMAX ERRORS ALLOWED FCR TEST 
010426 012737 000004 901240 MOV #4, STESIN >, SET TEST NUMBER IN APT MAIL BOX 
010434 032777 010000 170512 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
010442 001406 BEQ +16 [BR IF YES 
010444 104401 047617 TYPE MSGTST :TYPE ‘TEST’ 
010450 013746 001240 MOV STESTN,-(SP) 7 SAVE STESTN FOR TYPEOUT 
010454 104403 TYPOS 3GO TYPE~~OCTAL ASCII 
010454 002 -BYTE ’ 2 7: TYPE 2 DIGIT(S) 
010457 000 BYTE 0 «SUPPRESS LEADING ZEROS 
010460 012737 010466 001122 MOV #1$,$LPADR sSETUP LOOP ADDRESS 
C10466 113737 002354 047046 1$: MOVB FS,DPB.B+10 ZFS 
010474 113737 002346 047047 MOVB FT, DPB.B+11 sFT 
010502 012737 010764 001350 MOV WEXITS,BYPASS  ;GO TO EXITS ON ERROR 
010510 005002 CLR R2 SCLEAR STALL SWITCH (NO STALL) 
010512 032737 010000 001314 BIT #SW12,0.SWR STALL REQUIRED? 
010520 001401 BEQ TESTS >NO--BRANCH 
010522 005102 COM R2 :YES=-SET SWITCH 
10524 TESTS: 
010524 013701 002340 MOV FC,R1 cSET NC TO FC 
010530 005037 001436 CLR STALLO ESTAR AT ZERO IF STALLS REQUIRED 
010534 612737 010534 001124 MOV #. ,$LPERR :SETUP THE ERROR LOOP ADDRESS 
10542 012706 001100 MOV @STACK, SP ;LOAD THE STACK POINTER 
010546 010137 047050 "$ MOV R1,DPB.B°12 NC 
010552 004037 030550 JSR RO,CALL.8 GG EXECUTE THE COMMAND 
010556 005702 TST R2 STALL 
010560 007403 BEQ 2s 2 RO CBRANICH 


eee RMOS/3/2 EXT'D 


¥ 
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OSCILLATING SEEK TEST 


SEQ O72 


ne re ier cn ee Ae 


190 010562 006037 032326 JSR RO, STALL :YES=GO TO STALL ROUTINE 
191 910566 001436 “WORD STALLO “TIME POINTER 
792 010570 013737 002340 047050 28: MOV PC DPB.Be12 +FC 
193 010576 004037 030550 JSR RO; CALL.B £60, EXECUTE THE COMMAND 
194 010602 005702 TST R2 
195 010606 001413 BEG 3$ Ce ANCH 
196 010606 03 032326 JSR RO,STALG :YES=--GO TO STALL ROUTINE 
"97 010612 001436 «WORD STALLO (i IMe POINTER 
“98 010614 005237 001436 INC STALLO ;UPDATE THE TIME 
199 010620 023737 001462 0061436 CMP MXSTAL,STALLO : TIME TO BIG? 
200 010626 003347 AGT 1$ NO~-BRANCH 
201 010630 005037 001436 CLR STALLO :YES-*START OVER AT ZERO 
202 010634 063701 002344 3$: ADD 1C,R1 :MOVE TO NEXT CYLINDER 
203 010660 020137 002342 CMP R1-LC “LAST CYLINDER COMPLETED: 
204 010644 003740 BLE 1$ NO=~BRANCH 
205 010646 013701 002342 MOV LC.R1 “SET NC TO LC 
506 010652 012737 010652 001124 MOV 4. .SLPERR “SETUP THE ERROR LOOP ADDRESS 
010660 012706 001100 MOV ASTACK, SP -LOAD THE STACK POINTER 
207 010664 019137 047050 4$: MOV R1,DPB.B+12 NC 
208 610670 004037 030550 JSR RO.CALL.6 £60, EXECUTE THE COMMAND 
209 010674 005702 TST R2 ALL? 
310 010676 001403 BEQ $ | NO-LBRAN CH 
211 010700 004037 032326 JSR RO, STALL “YES==-GO TO STALL ROUTINE 
212 010704 001436 “WORD STALLO [TIME POINTER 
213 010706 013737 002342 047050 SS: MOV LC.DPB.B+12 TLC 
214 010714 004037 030550 JSR RO.CALL.B £60 EXECUTE THE COMMAND 
215 010720 005702 TST 2 “STALL? 
216 010722 001413 BEQ 6 NO-~BRANCH 
217 010724 006037 032326 JSR RO, STALL “YES=-GO TO STALL ROUTINE 
218 010730 001436 WORD STALLO : TIME POINTER 
219 010732 005237 001436 INC STALLO ;UPDATE STALL TIME 
520 010736 023737 001462 001436 CMP MXSTAL.STALLO TIME TOO BIG? 
531 010744 003347 BGT 4$ °NO-~BRANCH 
222 010746 005037 001436 CLR STALLO sYES=-SET STALL T IME BACK TO ZERO 
223 010752 163701 002344 6$: SUB C,R1 ZNEXT CYLINDER 
224 010756 020137 002340 CMP R1.FC ° DONE? 
225 910762 002340 BGE 4$ NO=-BRANCH 
226 010764 000004 EXIT4: SCOPE “CALL SCOPE ROUTINE 
238 
239 LOR AAA ATA A AE EA ERERAREREEER RARE RRAE AERA AAAAARAREKERANKE AKA eee eee ee 
SeTEST 5 CONVERGING/DIVERGENG SEEK TEST 
ZeTHIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
: "SEEKS FROM “NC1"’ AND 'NC2"' RESPECTIVELY, "NCI'* WILL BE INCREMENTED 
teBY IC’ AND NNC2" Bite BE DECREMENTED BY “'IC’’ UNTIL "NCI" IS 
Z*GREATER THAN THE INITIAL VALUE OF Nc" AND 'NC2"* IS 
TeLESS THAN THE INITIAL VALUE OF "NC1''. AT THE COMPLETION OF 
Z*EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
;*ENSURE PROPER OPERATION. ‘NC1'" AND 'NC2"* DEFAULT TO 
eFC AND LC’! RESPECTIVELY. 
- RARER AAAERARAARHEARAAAKEARAAAAERHRARAHRARHAREARAHARAHHEEKARERe Dee 
010766 TS15: 
010766 000240 NOP 
010770 033737 001552" 001332 BIT BITS+<5#2>,TSTNMS :DO THIS TEST? 
010776 001002 BNE +6 “BR IF YES 
011000 000137 011212 MP S16 “NO=-JUMP TO TEST6 
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CONVERGING/ DIVERGING SEEK TEST SEQ O°” 
011004 012737 000005 00111é MOV #5,.$TSTNM ;SET TEST #5 AND CLEAR (SERFLG) 
011012 004737 630142 JSR PC ;LODPRM > OAD THE PARMETERS FOR THE TES? 
011016 012737 011122 001124 MOV #TESTS,$LPERR SETUP THE LOOP ON ERROR ADDRESS 
011024 813737 002336 001220 MOV RPT, STIMES “GET THE ITERATION COUNT 
011032 112737 000031 001131 MOVB «#25, SERMAX 7MAX ERRORS ALLOWED FOR TEST 
56 011040 012737 000005 001240 MOV #5, STESIN :7SET TEST NUMBER IN APT MAIL BOX 
011046 032777 010000 170100 BIT #SW12,aSWR ; INHIBIT TYPING TEST NUMBER ? 
011054 001406 BEQ +16 BR IF YES 
011056 104401 047617 TYPE —MSGTST ZTYPE ‘TEST® 
011062 013746 001240 MOV $TESTN,-(SP) 3: SAVE STESIN FOR TYPEOUT 
011066 104403 7 YPOS 22G0 TYPE=-OCTAL ASCII 
011070 002 .BYIE 2 SE TYPE 2 DIGIT(S) 
011071 000 “BYTE 0 SUPPRESS LEADING ZEROS 
241 011072 012737 011100 001122 MOV #1$,S$LPADR ;SETUP LOOP ADDRESS 
242 011100 113737 002354 047046 18: MOVB FS, 0PB.B+10 ZFS 
243 011106 113737 002346 047047 MOVB «FT. DPB.B+17 ZFT 
247 O11114 012737 011210 001350 rests; WEXITS.BYPASS | :GO TO EXITS ON ERROR 
248 011122 013701 002340 MOV FC,R1 :START NC1 AT FC 
249 011126 013702 002242 MOV LC.R2 ZSTART NC2 AT LC 
250 011132 012737 011132 001124 MOV #. ,SLPERR “SETUP THE ERROR LOOP ADDRESS 
011140 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
251 011144 010137 047050 1$: MOV R1,DPB.B+12 NCI 
252 011150 004037 030550 JSR RO,CALL.8 =GO EXECUTE THE COMMAND 
253 011154 010237 047050 MOV R2,DPB.B+12 =NC 
254 011160 004037 030550 JSR RO,CALL.B [GO EXECUTE THE COMMAND 
255 011164 063701 002344 ADD IC.R1 NEXT NC1 
256 011170 163702 002344 SUB 1C,R2 ZNEXT NC2 
257 011174 020137 002342 CMP R1,LC > DONE? 
260 011200 003003 BGT EXITS > YES=~BRANCH 
261 011202 020237 002340 CMP R2.FC 3? 
262 011206 002356 BGE 1$ :NO--BRANCH 
263 011210 000004 EXITS: SCOPE TCALL SCOPE ROUTINE 
c 
273 P 
274 LL AAAAAA EAA EERE AERA REE RR ERERRE RARER AEE AEE ARETE RA AERA AERA RARA RARER 
SeTEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 
Z*IN THIS TEST A SEEK IS DONE TO CYL ‘NC'' THEN A SEEK TO 
S"NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC*5. NOW ‘NC'' IS UPDATED 
[«BY “"IC'’ AND THE ABOVE SEQUENCE IS REPEATED UNITL ‘LC'' IS 
[*EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF 'NC"' 
s*I1S "FC. AT THE COMPLETION OF EACH SEEK COMMAND THE 
S*PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
LEER AREER EEE RE REE REE AERERAA RE RERARE ERR RR ERR E RRA ARERR AAA EE REE 
011212 TST6: 
011212 000240 NOP 
011214 033737 001554 001332 BIT B1TS*<6*2>,TSTNMS :DO THIS TEST? 
011222 001002 BNE .+ BR IF YES 
011224 000137 011502 JMP 1ST7 [NO--JUMP TO TEST7 
017230 012737 000006 001116 MOV #6,$TSTNM :SET TEST 46 AND CLEAR (SERFLG) 
011236 004737 030142 JSR PC,LODPRM “LOAD THE PARMETERS FOR THE TEST 
011242 012737 011346 001124 MOV HTEST6,$LPERR | :SETUP THE LOOP ON ERROR ADDRESS 
011250 013737 002336 001220 MOV RPT, STIMES SGET THE ITERATION COUNT 
011256 112737 000031 001131 MOVB #25. , SERMAX ZMAX ERRORS ALLOWED FOR TEST 
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“ZRMYBO RMO5/3/2 EXT'D DR TST 
TE SERVO ADDRESSING LOGIC NOISE GENERATOR SEQ 0074 
275 011264 012737 000006 001240 MOV AG, STESIN 73SET TEST NUMBER IN APT HAIL &OX 
011272 032777 010000 167654 BIT #SW12,aSWR INHIBIT TYPING TEST NUMBER ? 
011300 001406 BEQ -+16 BR IF YES 
011302 104401 047617 TYPE »MSGTST PTYPE “TEST 
011306 013746 001240 MOV STESTN,=(SP) ta AVE STESTN FOR TYPEOUT 
011312 104403 TYPOS 0 eo ere ASCII 
011314 002 BYTE 2 i ETRE 2 DIGIT(S) 
011375 0co BYTE 0 s SUPPRESS LEADING ZERNS 
276 011316 012737 011324 001122 MOV #1$,$LPADR sSETUP LOOP ADDRESS 
277 011324 113737 002354 047046 18: MOVB FS,DPB.B+10 sFS 
278 011332 113737 002346 047047 MOVB FT,DPB.B8+11 ZET 
28< Giigee 012737 011500 901350 TESTE MOV WEXIT6,BYPASS ;GO TO EXIT6 ON ERROR 
283 011346 013701 002340 MOV FC,R1 sPICKUP "FC" 
284 011352 013702 002342 MOV LC,R2 FORM LAST CYLINDER THAT 
285 011356 162702 000005 SUB #5,Re 71S AVAILABLE FQR TESTING 
286 011362 012737 011362 001124 MOV #.,SLPERR ; SETUP THE ERROR LOOP ADDRESS 
011370 012706 001100 MOV #STACK ,SP sLOAD THE STACK POINTER 
287 011374 020102 1$: CMP R1,Re LAST CYLINDER , ' 
290 011376 003040 BGT EXIT6 “Ee “BRANCH 
291 011400 010137 047050 MOV R1.DPB.B+12 
292 011404 004037 030550 JSR RO,CALL.B £60 EXECUTE THE COMMAND 
293 011410 062737 000004 047050 ADD #4 ,DOPB.B+12 SNC +4 
294 011416 004037 030550 JSR RO, CALL .B 260 EXECUTE THE COMMAND 
295 011422 162737 000003 047050 SUB #3,0PB.B+12 NC+1 
296 011430 004037 030550 JSR RO,CALL.B :GO EXECUTE THE COMMAND 
297 011434 062737 000002 047050 ADD #2,0PB.B+12 NC +3 
298 011442 004037 030550 JSR RO.CALL.B 260 EXECUTE THE COMMAND 
299 011446 162737 000001 9047050 SUB #1,DPB.B+l2 NC +2 
300 011454 004037 030550 JSR ROQ,CALL.B 760 EXECUTE THE COMMAND 
301 011460 062737 0009003 047050 ADD #3,0PB.B+12 NC+5 
302 071466 004037 030550 JSR RO,CALL .B :GO EXECUTE THE COMMAND 
303 011472 063701 002344 ADD RI 
304 011476 000736 BR 1$ 
aoe 011500 000004 EXIT6: SCOPE sCALL SCOPE ROUTINE 
315 
316 CRRA REREARAERERERRAERRARRAEEAEEREENTEERRERHERERAEERRA RE ERERRER EE 
TATEST 7 RANDOM SEEK TEST 
;*THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC* 
ze'LC'. AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
[*READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
S*THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
:*OF POSITIONING OCCURS USN re. HEAD. TRACK ADDRESSES ARE INCREMENTED 
i*BETWEEN PARAMTERS ‘FT' AN 
gE Et Once chee scweadanensccdeuceuneccscices 
011502 1817: 
17502 000240 NOP 
011504 033737 001556 001332 BIT BITS+<7#2>,TSTNMS 3D0 THIS TEST? 
013512 001002 BNE +6 3BR IF YES 
011514 000137 012100 JMP TST10 ;NO-~JUMP TO TEST10 
011520 012737 000007 001116 MOV #7, $TSTNM ;SET TEST #7 AND CLEAR (SERFLG) 
011526 004737 030142 JSR PC,LODPRM [LOAD THE PARMETERS FOR THE TEST 
011532 012737 011642 001124 MOV AMTEST7,$LPERR  ;SETUP THE LOOP ON ERROR ADDRESS 


-—— HS 


RANDOM S 


317 


35 

357 012032 
358 012034 
359 012040 
360 012042 
361 072050 


013737 
112737 
012737 


032777 
001406 


013737 
012737 


112737 
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002336 
G00031 
000007 


01000 


047617 
001240 


002346 
000105 


011642 
001100 
062340 
002340 


026426 
026524 


002342 
002340 
026530 
047050 
047050 
011730 
001100 
030402 
011746 
001100 


047016 
000020 


000001 


047106 
002470 


047106 


04/106 
000001 
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SEQ 0075 


001220 MOV RPT, STIMES 3GET THE ITERATION COUNT 
001131 MOVB #25. , SERMAX ‘MAX ERRORS ALLOWED FOR TEST 
001240 MOV #7, STESTN “;SET TEST NUMBER IN APT MAIL BOX 
167364 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
BEQ +16 SBR IF YES 
TYPE .MSGTST ‘TYPE ‘TEST! 
MOV $TESTN,-(SP) +:SAVE $TESTN FOR TYPEOUT 
TYPOS $360 TYPE--OCTAL ASCII 
.BYTE 2 +: TYPE 2 DIGIT(S) 
"BYTE 0 *SSUPPRESS LEADING ZEROS 
047047 MOVB —s«F'T, DPB..B+11 ;LUAD STARTING TRACK ADDRESS 
047020 MOVB  4#SEEK,DPB.A+2 = SEEK=COMMAND 
MOV RMADR ,R4 SUNIBUS ADDRESS OF THE RH/RM 
001350 MOV HEXIT?, BYPASS | :ERROR TERMINATION ADDRESS 
€91122 a MOV WTEST7.$LPADR :SETUP THE LOOP ON TEST ADDRESS 
MOV ASTACK, SP sSETUP THE STACK POINTER 
047050 MOV FC,DPB.B+12 “INITIAL CYLINDER ADDRESS 
C02342 CMP FC.LC SCYLINDER LIMITS THE SAME ? 
BEQ 1§ “BR IF THEY ARE 
JSR PC, $RAND *CYCYLE THE RANDOM NUMBER GENERATOR 
MOV SHINUM, ~ (SP) SUSE THE HIGH RANDOM NUMBCR 
CLR ~(SP) SUPPER DIVIDEND 
MOV LC,-(SP) [FORM THE DIVISOR 
INC (SP) + INCREMENT 
SUB FC, (SP) “SUBTRACT TdE LOWER LIMIT 
JSR PC, $DIV “DIVIDE 
ADD (SP)+, DPB.8+12 :ADD THE REMAINDER TO THE INITIAL CYLINDER 
TST DISCARD THE QUOTENT 
047030 zg MOV iy B12. DPB. aeie sCOPY NEW CYLINDER ADDRESS 
001124 MOV #. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
MOV #STACK, SP “LOAD THE STACK POINTER 
JSR RO,CALL.A [GO EXECUTE THE COMMAND 
001124 MCV #. .SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
MOV WSTACK, SP SLOAD THE STACK POINTER 
000010 MOVB _—OPB.A, RMCS2(R4) =SELECT THE DRIVE 
MOV RMLA(R4),-(SP) =:GET THE LOOK AHEAD REGISTER 
ASL (SP) TALIGN THE SECTOR ADDRESS 
ASL (SP) TALIGN THE SECTOR ADDRESS 
SWAB. —s«CSP*) =PUT ADDRESS IN LOWER BYTE 
TSIB. —s-1( SP) SIN THE 1ST 20% OF SECTOR ? 
BEO $ ‘BR IF YES 
INCB (SP) : INCREMENT THE SECTOR ADDRESS 
2s: INCB CSP) ‘INCREMENT THE SECTOR ADDRESS 
MOVB _—« (SP) +, DTADPB+10 :LOAD THE DPB 
MOV PRMLMT+24.-(SP) :PUT LAST PECTOR ADDRESS ON THE STACK 
INC (SP) INCREMENT 
CMPR —s«(Sp-_—s« +, DTADPB+10 :NEW SECTOR U ADDRESS TOO LARGE ? 
BHIS  4$ :BR IF NOT 
BLO 3$ “BR IF ADDRESS IS 2 GREATER 
CLRB DPTADPB+10 RESET TO SECTOR ADDRESS. 0 
BR 4$ * CONTINUE 
MOVB  #1,DTADPB+10 = : RESET ADDRESS TO SECIOR 1 


047106 35$: 
4$: 


L 6 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 4-APR~81 11:57:12 PAGE 14-9 
"7 RANDOM SEEK TEST 


SEQ 0076 

012050 004037 030550 : JSR RO,CALL .B 3GO EXECUTE THE COMMAND 
362 012054 105237 647047 INCB DPB.B+11 INCREMENT THE TRACK ADDRESS 

012060 123737 047047 002350 CMPB DPB.B+11,LT ZMAXIMUM ? 
366 012066 101403 BLOS EXIT? 3BR IF NOT 
%7 012070 113737 0C. 346 047047 MOVB FT, DPB.B+11 RELOAD STARTING TRACK ADDRESS 
$08 012076 000004 EXIT7: SCOPE ;CALL SCOPE ROUTINE 
9 
335 DIO ISIIICIOIIIIIIDIOIIIIOIIIOIOIOIOIOIOIOIOIOIUIDIDIUIOIOIIDIUIDIIIIIOIIOICIOIIUIIIUIOI IIS HEINE EH 

s*TEST 10 SERVO SETTLE DOWN TEST 


:*THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

:*THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
:*RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘NC1° AND 'NC1+IC° 
=*('NC1' STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) SEEKS, 
:*'NC1' IS INCREMENTED BY VALUE 'IC" AND THE SEQUENCE IS REPEATED. 
**THE TEST IS COMPLETED WHEN 'NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


x . 

s*WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
Z*REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
>*POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 
:sFOR THAT SECTOR. 

:*ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
>*CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR THAT A PACK WITH 
*MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 


| 
* 

:*THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
y*HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY 
7*TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED 
7 *RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 


RARER RRAAREARARARRERRERREEREREEE EEE EERE REESE 


012100 TST10: 
012100 000240 NOP 
012102 033737 001560 001332 BIT BITS+<10*2>, TS TNMS :DO THIS TEST? 
012110 001002 BNE .+6 ;BR IF YES 
012112 000137 013254 JMP TST11 sNO--JUMP TO TEST11 
012116 012737 000010 001116 MOV #10,STSTNM sSET TEST #10 AND CLEAR (SERFLG) 
012124 004737 030142 JSR PC,LODPRM “LOAD THE PARMETERS FOR THE TEST 
012130 012737 012356 001124 MOV WTEST10,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
012136 013737 002336 001220 MOV RPT .STIMES “GET THE ITERATION COUNT 
012144 112737 000031 001131 MOVB #25. , SERMAX 7MAX ERRORS ALLOWED FOR TEST 

es (12152 012737 000010 001240 MOV #I0.STESIN ‘:SET TEST NUMBER IN APT MAIL BOX 

2 ‘ 
012160 032777 010000 166766 BIT #SW12,aSWR s INHIBIT TYPING TEST NUMBER ? 
012166 001406 BEQ .+16 “BR IF YES 
012170 104401 047617 TYPE »MSGTST sTYPE ‘TEST’ 
012174 013746 001240 MOV STESTN,~(SP) S:SAVE $TESTN FOR TYPEOUT 
012200 104403 TYPOS 22G0_ TYPE--OCTAL ASCII 

| 012202 003 .BYTE 3 s:TYPE 3 DIGIT(S) 
012203 000 .BYTE 0 +:SUPPRESS LEADING ZEROS 

a 012208 0612737 012212 001122 re MOV #1$,$LPADR :SETUP THE LOOP ADDRESS 
012212 112737 000105 047020 MOVa ASEEK,DPB.A+2 | ; SEEK=COMMAND 

396 012220 112737 000161 047100 MOVB AWRITE,DTADPB+2 ; COMMAND 

397 012226 113737 002346 047107 MOVB FT,DTADPB+11 ‘TRACK ADDRESS FOR THE WRITE 

398 012234 013737 002340 047030 MOV FC,DPB.A+12 “CYLINDER ADDRESS FOR THE SEEK 
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455 


7a 


012242 
012250 


012622 


po fear pechacly bp 
ro ee MOA —— 


004737 


012737 


012737 
012706 
012737 
005737 
001415 
100405 
017746 
013746 
000404 
017746 
013746 
012776 
012777 


062706 


012737 
012706 


002340 


001450 
002344 
176000 
054522 
034404 


047016 


073252 
012356 
001342 
167076 
001510 
167076 
001522 


013206 
032734 


000340 
040000 


047016 
045654 


000040 


001342 


000002 
000004 


012614 
001100 
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047110 
002370 
002344 
001450 


047102 
047104 


001350 
001124 
177776 


000000 
026206 
001444 
000010 
000034 


001366 
000000 


177776 
000012 


000070 
026056 


000000 


001124 


es: 


TEST10: 


1$: 


2s: 
3$: 


4$: 


5$: 


6$: 


TSTIOA: 


MOV 
MOV 
MOV 
SUB 
CMP 
BLE 
MOV 
MOV 
MOV 
CLR 
JSK 


SEQ 007” 
FC,DTADPB+12 : CYLINDER ADDRESS FOR THE WRITE 
FC,NC1 ZSTARTING CYLINDER 
LC,DELTA ;GET LAST CYLINDER 
FC,DELTA ZCALCULATE DELTA COUNT 
DELTA, IC iTS CALCULATED COUNT <= ‘JC’ ? 
2s R IF YES 
IC,DELTA “CYLINDER ait aa til VALUE 
#~<256.%4,>,DTADPB+4 zWORD COUNT 


WBUFFER, DTADPB+6 ;BUFFER ADDRESS 


RO :PATTERN. POINTER (WC PATTERN) 
PC, SE TBUF ;LOAD THF WRITE BUFFER 

R1 ;CLEAR REGISTER 

DPB.A,R1 ZLOAD DRIVE ADDRESS 

RMADR ,R4 ZUNIBUS ADDRESS OF THE RH/RM 
PC, CLRQUE :CLEAR THE OPERATION QUEUES 
#EXITIO,B8YPASS ;ERROR EXIT FROM TEST 

#. ,SLPERR zSETUP THE ERROR LOOP ADDRESS 
ASTACK, SP sLOAD THE STACK POINTER 
#PR7,PS 7SET PRIORITY TO 7 

CLKSTA ZSEE WHICH CLOCK ON SYSTEM 
3$ :BR IF NO CLOCK 

1$ :BR IF KW11l-L CLOCK 
aPKV,=-(SP) ZSAVE THE VECTOR 

PKV,~(SP) sSAVE THE VECTOR ADDRESS 

2$ :CONL TINUE 

@LKV, ~ (SP) ZSAVE "HE "LS CLOCK VECTOR 
LKV,~-(SP) 7SAVE “HE VECTOR ADDRESS 


#1$t108. a(SP)  ;CHANGE THE VECTOR 

lee @RMVEC CHANGE THE RM VECTOR 

#8. ,SEKTMR ZLOAD THE SEEK TIMER 

aCLR, “RACSR(RG) 7 INIT THE MASSBUS 

R1,RMCSO(R4) SRESELECT THE DRIVE 

DPB.A+12 ,RMDC (R4) LOAD THE CYLINDER ADDRESS 
OPB.A+12,CYL.DS :CYLINDER ADDRESS FOR ERROR MESSAGE 
WSEEK ,RMCS1(R4) START THE SEEK 


PS ;CLEAR THE PRIORITY 
RMDS(R4) ZHAS THE DRIVE FINISHED ? 
5$ 2BR IF IT HAS 
WAIT FOR THE OPERATION TO COMPLETE 

3 CONT INUE 
APR7 PS 3 CHANGE »PRIORITY TO MAX 
WERR,RMADS(R4) ERROR ? 
6$ ‘BR IF NO} 
#DPB.A,Re [DPB POINTER 
PC,SVRH70 TSAVE THE REGISTERS 
23 ERROR DURING SEEK 


ACLR.RMCS2(R4)  Z INIT THE MASSBUS 
R1,RMCS2(R4) RESELECT THE DRIVE 
#ISR,ARMVEC ;SETUP THE RM VECTOR 


CLKSTA : WHICH CLOCK 

TST10A IF NONE 

2(SP) ,a(SP) TRELOAD THE CLOCK VECTOR 
a4,SP CORRECT THE STACK POINTER 
#.,$LPERR SETUP THE ERROR LOOP ADDRESS 
ASTACK, SP ;LOAD THE STACK POINTER 


456 012626 


110164 


005726 
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000010 
C00020 


0003C0 


047106 
002470 


047106 


047106 


000001 
047102 
000111 
000002 
000004 
000006 
047114 
047076 
040634 
000001 


001750 


047100 
177776 
631224 
001446 


001446 
002344 
002370 
002342 
002370 
002344 
002344 
001446 
002340 


012356 


026524 
001450 


026530 
047030 
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SEQ 0078 
MOVB R1,RMCS2 (RG) ;SELECT THE DRIVE 
MOV « RMLA(R4),-(SP) ;GET THE LOOK AHEAD REGISTER 
ASL (SP) sALIGN THE SECTOR ADDRESS 
ASL (SP) ;ALIGN THE SECTOR ADDRESS 
SWAB (SP) :PUT ADDRESS IN LOWER BYTE 
000001 CMPB #300,1(SP) 7 IN THE LAST 20% OR SECTOR ” 
BNE 2$ “BR IF NOT 
INCB (SP) Z INCREMENT THE SECTOR ADDRESS 
es: INCB (SP) * INCREMENT THE SECTOR ADDRESS 
MOVB (S?)+,DTADPB+10 ;LOAD THE DPB 
MOV PRMLMT+24,-(SP) ;PUT MAXIMUM SECTOR ADDRESS ON THE STACK 
INC (SP) Z INCREMENT PAST THE MAXIMUM ADDRESS 
CMPB (SP) +,DTADPB+10 NEW SECTOR ADDRESS TOO “ARGE ? 
BHI 4$ ‘BR IF NOT 
BLO 3$ 7BR IF ADDRESS IS 2 GREATER THAN MAXIMUM 
CLRB DTADPB+10 sRESET TO SECTOR ADDRESS 0 
BR 4$ 3 CONT INUE 
047106 3$: MOVB #1,DTADPB+10 SRESET ADDRESS TO SECTOR 1 
4$: MOV ADTADPB+4, R3 ZPOINTER 
000000 MOV ADRVCLR, RMCS1(R4) ZCLEAR THE DRIVE 
MOV (R3) +, RiMWC (RG) ; LOAD THE WORD COUNT 
MOV (R3) +, RMBA(R4) LOAD THE BUFFER ADDRESS 
MOV (R3)+,RMDA(R4) ;LOAD THE TRACK/SECTOR ADDS 
CLR DTADPB+16 ;RESET “DONE* INDICATOR 
040572 MOV #DTADPB,TRNSWT ;LOAD ‘TRANSFER’ DPB ADDRESS 
MOV R1,DTUW S ADDRESS OF DRIVE TRANSFERING 
040522 MOVB #1,DRVACT(R1) sSET DRIVE ACTIVE INDICATOR 
ASL R1 sSHIFT DRIVE ADDRESS 
040614 MOV e100 7 TIMER(R1) sSETUP THE OPERATION TIMER 
ASR RESTORE R1 
000000 MOV DrADPB®2, RMCS1(R&) cSTART THE OPERATION 
CLR 7 CLEAR THE PRIORITY 
JSR RO. ORVCL1 “WAIT FOR OPERATION TO COMPLETE 
001750 5$: CMP. SEKCNT #1000. FINISHED SEEKS ? 
SNE 6$ 7BR IF NOT 
CLR SEKCNT 3CLEAR THE SEEK COUNT 
002370 ADD IC.NC1 ZADD THE INCREMENT 
002342 CMP NC1,LC SEXCEEDED THE CYLINDER LIMIT ? 
BHIS EXIT10 ‘BR IF IT HAS 
001450 MOV LC,DELTA :GET THE NEXT ‘ZONE’ ADDRESS 
001450 SUB NC1,DELTA sCHECK THE DIFFERENCE 
001450 CMP IC, DELTA DIFFERENCE GREATER THAN TRE INCROMENT ? 
BHI 6$ : If IT IS 
001450 MOV IC.DELTA 7USE THE ICREMENT PARAMETER 
6$: INC SEKCNT :COUNT THE NEXT SEEK 
002342 CMP FC,LC SBEGINNING AND ENDING CYLINDERS THE SAM: ? 
BNE 7$ :BR IF NOT 
JMP TEST10 7BR IF THEY ARE 
047030 /$: MOV NC1,DPB.A+12 sRESET THE CYLINDER ADDRESS 
JSR PC, $RA AND :CYCLE THE RANDOM NUMBER GENERATOR 
MOV SHINUM, - (SP) USE THE HIGH RANDOM NUMBER 
CLR ~-(SP) ;CLEAR THE UPPER DIVIDEND 
MOV DELTA,-(SP) “FORM THE DIVISOR 
INC (SP) : INCREMENT 
JSR PC ,$DIV cDIVIDE 
ADD (SP)+,DPB.A+12 ;:ADD THE REMAINDER TO THE INITIAL CYLINDER 
TST (SP) + :DISCARD THE QUOTENT 
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013164 023737 047030 047110 cmp DPR.AC12, DTADPB+12 ;SAME CYLINDER SELECTED AS .AST ‘IME ? 
013172 001754 BEQ 7$ RIF IT WAS 
013176 013737 047030 047110 MOV DPA. Acl2, pranpavig’ =COPY NEW CYLINDER ADDRESS 
013202 000137 012356 JMP TESTIO Nut 
013206 TST108: 
013206 005337 001444 DEC SEKTMR :DECREMENT THE SEEK TIMER 
913212 061016 BNE 1$ ONTINUE IF NOT DONE 
9132146 012702 047016 MOV #DPB.A,R2 ‘OPS ADDRESS 
013220 004737 045654 JSR PC, SVRH?0 “SAVE THE REGISTERS 
013224 104024 EMT 24 ‘TIMEOUT DURING SEEK 
013226 012764 000060 000010 MOV ACLR,RMCS2(R4) INIT THE MASSBUS 
013234 110164 Q0001C MOVB R1,RMCS2(R4) SRESELECT THE DRIVE 
013240 016676 000002 000000 MOV 2(8P) a(SP) “RESTORE THE (LOCK VECTO® ADDRESS 
013246 000401 BR Ex1T10 TABOR T THE TEST 
529 013250 000002 1$: RTI “RETURN 
330 013252 000004 EXIT10: SCOPE [CALL SCOPE ROUTINE 
542 
543 FFAS AA AREA AE AEEHAHARERERARAAAARARAEAAAAAERARERAARHRHERHERAHAEH 
SeTEST 11 ALL SEEKS TEST 
teTHIS TEST VERIFIES THAT THE DiSK DRIVE CAN SEEK FROM EACH CYLINDER 
esto ALL OTHER CYLINDERS. 
+ SBEGINNING WITH CYLINDER ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
TeBETWEEN 'FC' AND 'LC' FROM CYINDER ‘FC'. THE BEGINNING CYLINDER 
TeADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
TeADDRESS AND ALL CPLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 
> *CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 
FF RARE EAARE AEE EAEEETAAEREAAAERAAAAEEAAAERERAAETEEHEREEAEHEOES RH 
013254 TST11: 
013254 240 NOP 
013256 033737 001562 001332 BIT BITS#<11#2>, 1S TNMS :DO THIS TEST? 
013264 001002 BNE +6 ;BR IF YES 
013266 000737 013520 JMP TST12 “NO--JUMP TO TEST12 
013272 012737 000011 001116 MOV #11,$TSTNM ;SET TEST #11 AND CLEAR (SERFLG) 
013300 737 030142 JSR PC ,LODPRM “LOAD THE PARMETERS FOR THE TEST 
013304 012737 013440 001124 MOV #TEST11,$LPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
013312 013737 002336 001220 MOV RPT ,STIMES [GET THE ITERATION COUNT 
013320 112737 000031 001131 MOVB = #25.., SERMAX “MAX ERRORS ALLOWED FOR TEST 
re 013326 012737. 000011 001240 MOV #11. $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
4 
013334 032777 010000 165612 BIT #SW12,aSwR ZINHIBIT TYPING TEST NUMBER ? 
013342 001406 BEQ +16 [BR IF YES 
013344 104401 047617 TYPE § |MSGTST STYPE ‘TEST® 
013350 013746 001240 V STESTN,-(SP> >:SAVE $TESTN FOR TYPEOUT 
013354 104403 TYPOS 7:60 0. TYPE--OC TAL ASCII 
013356 003 \BYTE 3 ii TYPE 3 DIGIT(S) 
013357 "BYTE 0 SSUPPRESS LEADING ZCROS 
545 013360 012737 013366 001122 MOV #1$,$LPADR :SETUP THE LOOP ADDRESS 
546 013366 113737 002354 047046 18: MOVB «FS, DPB.B+10 [SECTOR ADDRESS 
547 013374 113737 002354 047066 MOVB «FS. DPB.C +10 *SECTOR ADDRESS 
548 013602 113737 002346 047047 MOVB «FT .DP®.A+11 “TRACK ADDRESS 
549 013610 113737 002346 047067 MOVB «FT. DPB. (+17 STRACK ADDRESS 
50 013416 013737 002340 047050 MOV FC.DPB.B+12 “STARTING CYLINDER ADDRESS 
551 013424 013737 002340 047070 MOV FC, DPB.C+12 : STARTING CYLINDER ADDRESS 


5/372 Ext*’D DR TST 
ALL SEEKS TES! 


013432 
013440 


013516 


012737 
012706 
004037 
004037 
063737 
023737 
002365 


060004 


013516 
001100 
030766 


002342 


002340 
002344 
002342 
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001350 


047070 
047070 


047070 
047050 
047050 


EST**: 


1§: 


BS 
EXITI%: SCOPE 


MEXTT"1,B8YPASS 


ASTACK,SP 


RO, CALL .C 
RO, CALL .B 


SEQ 008° 
TEST ABORT EXIT 
:SETUP THE STACK POINTER 


7GO EX=CUTE THE COMMAND 

:GO EXECUTE THE COMMAND 

SINCREMENT THE ENDING CYLINDER ADDRESS 
sCHECK IF EXCEEDING MAX] MUM 

:BR IF NOT 

sRESET ENDING CYLINDER ADDRESS 

; INCREMENT THE STARTING ADDRE 5S 
sEXCEEDING MAXIMUM ? 

“BR IF NOT 


“CALL SCOPE ROUTINE 


D 7 
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TIMING TESTS SEG 0081 


: .SBITL TIMING TESTS 
3 Be A ee ernewe acne 
4 +S THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 
5 ‘*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE Hoe? 3/2 
6 :*ENGINEERING SPECIFICATIONS’. 
? ‘*THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 
8 **OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
- care. THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 
1. SEAAILITIVTTIITITITLTLAAT TATA TATA TA STITT TTA 
oo RRAAKARRARARAAAARAEAAEARAAAAAAAEREEAAEAAAREEHEAEHEEEEHERHAHAHHah 
TSTEST 12 ROTATIONAL SPEED TIMING TEST 
S*THIS TEST WILL START A SEARCH 70 CYLINDER °FC', TRACK 'FT', 
= aSECTOR "FS". AS SOON AS THE INTERRUPT OCCURS, THE GO SIT 
=*IS SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 
t*]S REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED 
:*AND CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 
*® 
3* RMO5S/3: 
Al 16.67 MS/REV + OR - 2% IF 60HZ 
st 16.67 MS/REV + OR = 2.5% IF SOHZ. 
3° RMO2: 
a” 25.00 MS/REV + OR - 2% IF 60HZ 
if 25.00 MS/REV + OR - 2.5% IF SOHZ. 
SLUM RAAE AREER ERE ETHER E TERRE NEE AEE RAREREEEEREREEAENAERHEN OSES 
013520 TSTle: 
013520 000240 NOP 
013522 033737 001564 001332 BIT BITS+<12+2>,TSTNMS 200 THIS TEST? 
013530 001002 BNE +6 :BR IF YES 
013532 000137 014442 JMP 1ST13 ZNO--JUMP TO TEST13 
013536 012737 000012 001116 MOV #12,$TSTNM sSET TEST #12 AND CLEAR (S$ERFLG) 
013544 004737 030142 JSR ©C ,LODPRM SLOAD THE PARMETERS FOR THE TEST 
013559 012737 014116 001124 MOV aTESTI2, SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
013556 613737 002336 001220 MOV RPT, STIMES a THE ITERATION COUNT 
013564 112737 000031 001131 MOVB #25. , SERMAX MAX ERRORS ALLOWED FOR TEST 
is 013572 012737. 000012 001240 MOV #12. $TESIN 1 SET TEST NUMBER IN APT MAIL BOX 
013600 032777 010000 165346 BIT oe ca : INHIBIT TYPING TEST NUMBER ? 
013606 001406 BEQ +16 BR IF YES 
013610 104401 047617 TYPE »MSGTST sTYPE ‘TEST‘ 
013614 013746 001240 MOV STESIN,~(SP) +: SAVE STESTIN FOR TYPEOUT 
013620 104403 “OF TYPOS 3:60 Lee ert re) ASCII 
013622 003 BYTE 3 zz TYPC 3 DIGIT 
013623 000 -BYT 0 : :SUPPRESS OE OING ZEROS 
31 013624 005737 001342 TST CLKSTA :KW11-P CLOCK? 
32 013630 003002 BGT 1$ *YES=~START TEST 
35 013632 600137 014440 JMP EXIT12 *NO--JUMP TO EXIT12 
36 013636 012737 013636 001122 i$: MOV #. ,SLEADR SETUP LOOP ADDRESS 
37 013644 004037 032552 JSR RO. * SRCHCO DG A MASSBUS INIT & RECAL 
38 013650 000402 BR c$ ZRETURN HERE IF NO ERROR 
60 013652 000137 014440 JMP EXIT12 “RETURN HERE IF ERROR 


ee RMO5/3/2 EXT'D OR TST 
TI2 ROTATIONAL SPEED TIMING 


012737 
112737 


013656 
C00*05 
047026 
002340 


013736 
013742 
013750 


000006 
014440 


013752 
C13754 047076 


000100 
001650 


000005 


001630 
001630 
001716 


001640 
001724 
001640 
000005 
001620 


001620 
001710 


001100 


000131 


000101 
040000 


047076 


014226 005077 165264 
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SEQ 008/ 


001122 2$: MOV #.,$LPADR :ERROR LOOP oe 
047020 MOVB  #SEEK,DPB.A*2  : SEEK= COMMAND 
CLR DPB.A*10 SUSE TRACK 0 & SECTOR 0 
047030 MOV FC,DPB,A+12 STARTING CYLINDER 
001350 MOV #EXITI2, BYPASS *GO TO EXIT12 IF ERROR 
JSR RO, CAL 7GO EXECUTE THE COMMAND 
000034 MOV FCAMBC (RA) “FC 
MOV §S°=(SP) +S 
000001 MOVB «FT. .1(SP) SFT 
MOV ($3) + RMDA(R4) “LOAD FI/FS 
001222 MOV WEXITI2,$ESCAPE *;ESCAPE TO EX3T12 ON ERROR 
CLR [COUNT UP 
SSETUP PARAMETER TABLE FOR RAMOS /RMO3/RIO2 
MOV RO,-(SP) SAVE R 
MOVB —sODTADPB, RO ‘DRIVE ADDRESS 
001314 BIT #SW06,C.SWR * CHECK CONTROL SwR FOR 60 HZ. 
BEQ 33 “BR IF YES 
MOV #77B1,R3 “LOAD 50 HZ. TABLE -FOR RMO2 
014430 MOV #1731 .TPSO- ; 
014436 MOV WSP7B1,TPS5O —: 
040542 CMPB #3. DRVTYP(RO)  :AN RMO2 DRIVE ? 
BEQ “BRANCH IF SO 
MOV #1 78,R3 SLOAD 50 HZ. TABLE FOR 2M05/3 
014430 MOV #17B, TPSO : 
014436 MOV #SP7B, TPS5O : 
BR 43 TEXT 
014412 38: MOV #T7A1,TP60 [LOAD 60 HZ. TABLE FOR RMO2 
014420 MOV WSP7A1,TPS60 ss: 
MOV #T7A1,R3 : 
040542 (MPR so #5, DRVTYP(RO) =: AN RMO2 DRIVE ? 
BEQ 43 ;BTANCH IF SO 
014412 MOV #T7A, TP6O “LOAD 60 HZ. TABLE FOR RM05/3 
MOV #T7A_.R3 ; 
014420 MOV #SP7A, TPS60 : 
48: MOV (SP) +-RO “RESTORE RO 
NOP sEXIT 
TESTI2: 
MOV WSTACK,SP ZSETUP STACK 
MOV #10. ,R1 [TIME 10 SEARCHES 
JSR PC, STRTMR TINITIALIZE THE TIMERS 
165350 MOV #7$, aPKV “SETUP VECTOR IN CASE OF OVERFLOW 
024504 MOV MDORTI,@RMVEC SETUP RM VECTOR 
1S: CLR aPKA *START COUNTING AT ZERO 
165334 MOV #131, aPKCS TINT.EN., COUNT UP AT 100KH? 
MOV #SEARCH, (R4) “START A SEARCH 
WAIT “WAIT ON INTERRUPT 
165320 BIC #101, aPKCS >STCP THE CLOCK 
000012 BIT WERR-RMDS(RG) ERROR? 
BEO 2$ “NO--BRANCH 
SAVREG SAVE RO-R5 
MOV #DTADPB,R2 :DPB POINTER 
JSR PC, SVRH?0 “SAVE ALL THE RH/RM REGISTERS 
SR PC-CNTCLR "GO CLEAR MASSBUS CONTROLLER 
RESREG TRESTORE RO-R5 
EMT 17 “DISK ERROR OCCURRED 
2$: CLR aPKB “START THE COUNT AT ZERO 


eee 4 
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ae ROTATIONAL SPEED TIMING TEST >F0 0083 
03 014232 012774 000131 MOV WSEARCH,(R4) —; START A SEARCH 
104 014236 012777 600131 165250 MOV #131, aPKCS START THE CLOCK 
*65 014264 000001 WAIT WAIT ON INTERRUPT 
706 014246 042777 000101 165240 BIC #101, aPKCS ;STOP_ THE CLOCK 
107 014254 032764 040000 000012 BIT WERR-RMDS(RG) JS ERR=1' 
108 014262 00141) BEQ 3$ ‘NO--BRATICH 
109 014264 104412 SAVREG SAVE RO-R5 
014266 012702 047076 MOV #DTADPB ,R2 DPB POINTER 
014272 006737 045654 JSR PC, SVRH?0 SAVE ALL THE RH/RM REGISTERS 
014276 004737 027334 JSR PC; CNTCLR O CLEAR MASSBUS CONTROLLER 
014302 104413 RESREG RESTOR E RO-R5 
10 014306 104017 EMT 17 IDISK ERROR OCCURRED 
"17 014306 004737 033000 3$: JSR PC, COUNT [UPDATE THE COUNT 
112 014312 005301 DEC Ri {BONE ? 
713 014314 003314 BGT 1$ NO==BRANCH 
“14 014316 000420 BR 8$ SYES=-GO TO THE EXIT 
11§ 014320 042777 0600101 165166 7S: BIC #101, aPKCS STOP THE CLOCK 
116 014326 005037 177776 CLR PS [DROP THE PRIORITY 
117 014332 012600 MOV (>P)+,R0 =PC OF WAIT+2 
"1B 614334 005726 TST (SP) + [POP THE PS FROM THE STACK 
119 014336 104412 SAVREG SAVE RO-R5 
014340 012702 047076 MOV #DTADPB,R2 :DPB POINTER 
014344 004737 045654 JSR PC,.SVRH?70 ZSAVE ALL THE RH/RM REGISTERS 
014350 004737 027334 JSR PCCNTCLR 7GO CLEAR MASSBUS CONTROLLER 
016354 104413 RESREG ZRESTORE RO-RS5 
120 014356 104020 EMT 20 ZCLOCK OVERF LOWED 
121 014360 004737 027334 8S: JSR PC.CNTCLR 7GO CLEAR MASSBUS CONTROL! ER 
122 014364 004737 027426 JSR PC;ST.CLK TINITIALIZE THE CLOCK 
"23 016370 012777 043306 024254 MOV #15R,aRMVEC TRESTORE RH/RM INT. VECTOR 
124 014376 032737 000100 001374 BIT #SWO6,C.SWR 160 HZ? 
138 014404 001007 BNE EXIT.A >NO-BRANCH 
014406 004037 033240 JSR RO, TYPTIM TYPE THE TIMING 
014412 001620 1P60:  T7A STABLE ADDRESS 
014414 604037 033132 JSR RO,SPTYP :TYPE THE SPEC 
014420 001710 TPS60: SP7A 
014422 000406 BR EXIT12 EXIT 
39 914424 004037 033240 EXIT.A: JSR RO, TYPTIM [TYPE THE TIMING 
160 014430 001630 TP50: ‘178 [TABLE ADDRESS 
141 014432 004037 033132 JSR RO, SPTYP : 
142 014436 001716 TPS50: SP7B : 
"45 014440 000004 EXIT12: SCOPE CALL SCOPE ROUTINE 
153 
"64 SLUM EA ERE ERE EEE EEE EERE EEE R ERE ERA RRARARE RHEE TEENS 
SETEST 13 ONE CYLINDER SEEK TIMING TEST 
‘ THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE ThE 
Z*CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 


T*CYLINDER 'LC', THEN REVERSE SEEK TO CYLINDER ‘FC'. THE 
:*TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
3*EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
3 *MAXIMUM TIME IS 6.0 MS. 


SERCH AREA EEE ER EE EERE REET REEERETEREREEEHHER RARE EHR ARETE RaEeases 


014442 TST13:; 

014442 000240 NOP 

014444 033737 00°566 001332 BIT BITS*<13*2>,7S™NMS ;DO THIS "EST? 
914452 001002 BNE +6 BR IF YES 


C°4454 000137 015144 JMP TST14 NO@~JUMP TO TESTI4 
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ONE CYLINDER SEEK TIMING TES’ SEQ OOK. 
014460 012737 GQ0013 ¢cC'"16 MOV #13,8TSTNM ZSET TEST #13 AND CLEAR ($ERFLG) 
014466 004737 030142 JSR PC ,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
014472 912737 014652 001124 MOV @TESTI3,$LPERR ;:SETUP THE LOOP ON ERROR ADDRESS 
014500 013737 002336 001220 MOV RPT ,STIMES :GET THE ITERATION COUNT 
014506 112737 000031 001131 MOVB #25. ,SERMAX :MAX ERRORS ALLOWED FOR “EST 
Re 014514 012737 000013 001240 MOV W13,STESTN 27SET TEST NUMBER IN APT MAIL BOX 
014522 032777 010000 164424 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
014530 001406 BEQ +16 ;BR IF YES 
014532 104401 047617 TYPE »MSGTST : TYPE ‘TESTS 
014536 013746 001240 MOV STESTN,-(\SP) ZZSAVE STESTN FOR TYPEOUT 
014542 104403 TYPOS 7260 ge: ASCI1 
014544 003 BYTE 3 Zs TYPE 3 DIGIT(S) 
0145465 000 -BYTE O +:SUPPRESS LEADING ZEROS 
156 014546 005737 001342 TST CLKSTA sKW11-P CLOCK? 
157 014552 003002 BGT 1$ ZYES~-START TEST 
160 014554 000137 015142 JMP EXIT13 2NO=--JUMP TO EXIT13 
161 014560 012737 014560 001122 18: MOV #., $LPADR ZSETUP THE LOOP ADDRESS 
162 014566 004037 032552 JSR RO, SRCHOO :D0 A MASSBUS INIT. AND RECAL 
163 014572 000402 BR 2$ zNO ERROR RETURN 
175 014574 000137 015142 x JMP EX1T13 ZERROR RETURN--SCOPE LOOP CALL 
014600 012737 014600 O0v1122 2$: MOV #.,$LPADR ZERROR LOOP ADDRESS 
014606 112737 000105 047020 MOVB #SEEK,DPB.A+2 ;SEEK=COMMAND 
014614 005057 047026 CLR DPB.A+10 ;USE TRACK O & SECTOR 0 
014620 013737 002340 047030 MOV FC,DPB.A+12 ZSTARTING CYLINDER 
014626 012737 015142 001350 MOV MEXIT13,BYPASS ‘G0 TO EXIT13 IF ERROR 
014634 004037 030402 JSR RO,CALL.A :GO EXECUTE THE COMMAND 
014640 012703 001660 MOV #T10,R3 PARAMETER POINTER 
Biaees 012737 015142 001222 feeta’ MOV #EXIT13,SESCAPE + ESCAPE TO EXIT13 ON ERROR 
176 014652 012706 001100 MOV #STACK, SP SSETUP STACK 
177 014656 015737 002340 047110 MOV FC ,DTADPB+12 :START WITH BEGINNING CYI INDcR 
178 014664 005237 047110 INC DTADPB+12 : INCREMENT THE BEGINNING CYLINDER 
‘79 014670 005005 CLR RS sSET THE UP/DOWN SWiTCH TO UP 
*80 014672 004737 032736 JSR PC, Sve ZINITIALIZE THE TIMERS 
181 014676 012777 015050 164604 MOV #73, aPK ;SETUP INCASE OF OVERFLOW 
182 014704 012777 032734 023740 MOV #DORTI, SRMVEC sSET RM VECTOR 
183 014712 005077 164600 1$: CLR aPKB ZSTART THE COUNTER AT ZERO 
184 014716 013744 047110 000034 MOV Dees RMDC (RG) ZLOAD DESIRED CYLINDER 
185 014724 012714 000105 MOV #SEEK, (R4S :START A SEEK 
186 014730 012777 €C00131 164556 MOV #131, aPKCS > START THE CLOCK 
187 014736 000001 WAIT rWAIT ON INTERRUPT 
188 014740 042777 000101 164546 BIC #101, aPKCS :STOP THE CLOCK 
189 014746 032764 040000 000012 BIT #ERRRMDS(R4) ZANY DISK ERRORS? 
190 014754 001411 BEQ 2s 7NO--BRANCH 
191 014756 104412 SAVREG SAVE RO-R5 
014760 012702 047076 MOV : ADTADPB,R2 ;DPB POINTER 
014764 004737 045654 JSR PC, SVRH70 :SAVE ALL THE RH/RM REGISTERS 
014770 004737 027334 JSR PC,CNTICLR :GO CLEAR MASSBUS CONTROLLER 
014774 104413 RESREG sRESTORE RO-R5S 
192 014776 104017 EMT 17 :DISK ERROR OCCURRED 
193 015000 004737 033000 2$: JSR PC, COUNT :COUNT THIS SEEKS TIME 
194 015004 005705 TST RS :UP OR DOWN? 
195 015006 001011 BNE 4$ : DOWN--BRANCH 


196 075010 005237 047110 3$: INC DTADPB+12 SMOOVE TO NEXT CYLINDER 


DTADPB+12,LC 
1$ 

#-1,R5 

1$ 
DTADPB+12 
DTADPB+12,FC 
1$ 

&$ 

plots aPKCS 


(Sp), RO 
(SP) + 


ADTADPB,Re 
PC,SVRH70 
PC,CNTCLR 


20 
PC,CNTCLR 
PC,ST.CLK 
AISR,aRMVEC 
RO,TYPTIM 


RO, SPTYP 
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SEQ 0085 


;OUT OF CYLINDERS? 

:NO=-GO DO THE NEXT SEEK 
7SET UP/DOWN SWITCH TO DOWN 
7GO DO THE NEXT SEEK 

sMOVE TO NEXT CYLINDER 

:OUT OF CYLINDERS? 

zNO--GO DO THE NEXT SEEK 

:GO0 TO THE EXIT 

:STOP THE CLOCK 

;DROP THE PRIORITY 

zPC OF WAIT+2 

:POP THE PS FROM THE STACK 
;SAVE RO=-R5 

7DPB POINTER 

:SAVE ALL THE RH/RM REGISTERS 
7GO CLEAR MASSBUS CONTROLLER 
SRESTORE RO-R5 

;REPORT CLOCK OVERF7OW 


3GO CLEAR MASSBUS CONTROLLER 
INITIALIZE THE CLOCK 
ZRESTORE RH/RM INT. VECTOR 
3GO TYPE THE TIMES 

sPOINTER 


CALL SCOPE ROUTINE 


TOR RRRERBSSASRASSARERASESASLERR SRS RSR SRR RRR R RRR RAR RR RR ERE ARO EEO S OS 


AVERAGE SEEK TIMING TEST 

:*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
THEN A REVERSE SEEK FROM CYLINDER ‘LC* TO 

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 


oa TIME IS 30.0 MS. 


a THERE ARE NO SPECIFICATIONS GIVEN 
THEREF ORE , 


; USED FOR REFERENCE ONLY. 
o* 


SRR AAA ARAEAEEARERRARERERKERERERE RAKE AEE HH HERE ED 


TRAMVBC RMOS/3/2 ExT'D OR TST 
"13 ONE CYLINDER SEEK TIMING TEST 
197 015014 023737 047110 022342 CMP 
198 015022 002733 BLT 
199 015024 012705 177777 MOV 
200 015080 000730 BR 
501 015032 005337 047110 A$: DEC 
502 015036 023737 047110 002340 CMP 
503 015044 003322 BGT 
315046 000420 BR 
505 015050 042777 000101 164436 78: BIC 
015056 005037 177776 CLR 
507 015062 012600 MOV 
508 015064 005726 1ST 
209 015066 104412 SAVREG 
015070 012702 047076 MOV 
015074 004737 0465654 JSR 
015100 004737 027334 8R 
015104 104413 RE SREG 
210 015106 104020 MT 
511 015110 004737 027336 8S: JSR 
312 615114 004737 027426 JSR 
51$ 015120 012777 043306 023524 MOV 
514 015126 004037 033240 JSR 
015132 001660 710 
215 015134 004037 033132 JSR 
216 015140 001740, SP10 
217 015142 000004 EXIT13: SCOPE 
332 
533 
TSTEST 16 
CYLINDER ‘LC’, 
TeCYLINDER 'FC'. 
| “ON THIS PARTICULAR DRIVE. 
015144 ST 14: 
015144 000240 NOP 
015146 033737 001570 001332 BIT 
| 015154 001002 BNE 
| 015156 000137 015704 MP 
015162 012737 000014 001116 | MOV 
015170 004737 030142 JSR 
015174 012737 015354 001124 .. MOV 
015202 013737 002336 001220 MOV 
015210 112737 000031 001131 MOVB 
| yg 010216 012787 000014 001240 MOV 
| 015224 032777 010000 163722 BIT 
| 615232 001406 BEO 
| 


a ee 


BITS+#<14*%2>,TSTNMS 
+6 


TST15 


A14,$TSTNM 
LODPRM 


PC, 
#TESTI4. $LPERR 


RPT ,STIMES 
#25. , SERMAX 
#14, $TESTN 


#SW12,aSWR 
oPTG 


Z*ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK T'ME. 
i*THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL OF 256 SEEKS). 


FOR AN AVERAGE SEEK TIME 
THIS TEST SHOULD BF 


;D0 THIS TEST? 
:BR IF YES 
z;NO--JUMP TO TESTI5 


SET TEST #14 AND CLEAR ($ERFLG) 
LOAD THE PARMETERS FOR THE ‘ES’ 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 

MAX ERRORS ALLOWED +OR TEST 
2¢SET TEST NUMBER IN APT MAIL BOX 


:INHIB]T TYPING TEST NUMBER ? 
BR OIF YES 


acre RMOS/3/2 EXT'D DR TST 


AVERAGE SEEK TIMING TEST 


104401 
013746 
104403 
003 
000 


015234 
015240 
015244 
015246 
015247 
015250 005737 
003002 


012737 
012706 


2 2 
278 015540 
279 015546 
280 015550 
015552 012702 
015556 
015562 
015566 104413 
281 015570 


047617 
01240 


001342 


015702 
015262 
032552 


015702 
015302 
000105 
047026 
002340 
015702 
030402 
001670 
015702 


001100 
000200 
032736 
015610 
032734 
164106 
002342 
000105 
000131 


000101 
040000 


047076 
045654 
027334 


033000 
164010 
002340 
000105 
000131 


000101 
040000 


047076 
045654 
027334 
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001122 


001122 
047020 


047030 
001350 


001222 


164112 
023246 


000034 
000000 
164062 


164052 
000012 


000034 
000000 
163764 


163754 
000012 


1$: 


es: 


TEST14: 


1$: 


2$: 


TYPE 


MSGTST 
T 


$TESTN,-(SP) 


RO; SRCHOO 
es 


EXIT14 
#.,$LPADR 
MSEEK DPB. Ate 
DPB.A+10 

FC, DPB.A+12 
MEXIT14,BYPASS 
RO,CALL.A 


#111,R3 
MEXIT14, SESCAPE 
MSTACK ,SP 

#128. ,R1 
PC,STRTIMR 

#73 ,APKV 
#DORTI , @RMVEC 
@PKB 

LC, RMDC(R4) 
MSEEK ,RMCS1(R4) 
#131,aPKCS 

#101 ,aPKCS 
aa 


ADTADPB ,R2 
PC, SVRH70 
PC.CNICLR 


7 

R5 

PC, COUNT 

aPKB 

FC ,.RMDC (R4) 
AMSEEK,RMCS1(R4) 
#131,aPKCS 
#101, aPKCS 
meee! 


ADTADPB,R2 
PC, SVRH70 
PC,CNTCLR 


V7 


SEQ 0086 


TYPE ‘TEST’ 

is SAVE STESTN FOR TYPEOUT 
3:GO_TYPE--OCTAL ASCII 
seTYPE 3 DIGIT(S) 
3.SUPPRESS LEADING ZEROS 


iKW11-P CLOCK? 

SYES==START TEST 

3NO=-JUMP TO EXIT14 

;SET THE LOOP ADDRESS 

3DO_A MASSBUS INIT & RECAL 

RETURN HERE IF NO ERROR 

RETURN HERE ON ERROR 
ERROR LOOP ADDRESS 
SEEK=COMMAND 

“USE TRACK O & SECTOR 0 
STARTING CYLINDER 

3GO TO EXIT14 IF ERROR 
+60 EXECUTE THE COMMAND 
PARAMETER POINTER 

ESCAPE TO EXIT14 ON ERROR 


ZSETUP STACK 

ZREPEAT ‘FCT=<$"LC'<"FC'’ 128 TIMES 
ZINIT. THE COUNTERS 

7SET UP VECTOR IN CASE CF OVERFLOW 
:SETUP RM VECTOR 

ZSTART COUNT AT ZERO 
:"MIDDLE’ CYLINDER 

sSTART A SEEK 

sSTART THE CLOCK 

sWAIT ON INTERRUPT 

:STOP CLOCK 

ZERR=1? 

*NO=-BRANCH 

ZSAVE RO-R5 

7DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
RESTORE RO-RS 

zDISK ERROR OCCURRED 

:SET UP/DOWN SWITCH TO UP * 
: UPDATE THE COUNT 

:START THE COUNT AT ZERO 
sBEGINNING CYLINDER 

ZSTART A SEEK 

cSTART THE CLOCK 

ZWAIT ON INTERRUPT 

;STOP THE CLOCK 

:ERR=1? 

3NO-~BRANCH 

SAVE RO-R5 

:DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
G0 CLEAR MASSBUS CONTROLLER 
RESTORE RO=R5S 

:DISK ERROR OCCURRED 
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AVERAGE SEEK TIMING TEST SEQ 00¢ 
282 015572 0127905 177777 3$: MOV #~-1,R5 SET UP/DOWN SWITCH TC DOWN 
283 015576 004737 033000 JSR PC, COUNT [UPDATE THE COUNT 
284 015602 005301 DEC R} ;DONE? 
285 015604 003277 BGT i$ NO==BRANCH 
286 015606 000420 BR 8$ 3 YES--EXIT 
287 015610 042777 000101 163676 7$: BIC #101,aPKCS ;STOP THE CLOCK 
288 015616 005037 177776 CLR PS DROP THE PRIORITY 
289 015622 012600 MOV (SP)+,RO PC OF WAIT+2 
290 015624 005726 TST (SP) + 7;POP_ THE PS FROM THE STACK 
291 015626 104412 SAVREG SSAVE RO-R5 
015630 012762 047076 MOV ADTADPB,R2 ;D0PB POINTER 
015634 004737 045654 JSR PC,SVRH/0 ;SAVE ALL THE RH/RM REGISTERS 
015440 004737 027334 JSR PC,CNTCLR :GO CLEAR MASSBUS CONTRO! LER 
015644 104413 RESREG sRESTORE RO-RS 
292 015646 104020 EMT 20 CLOCK OVERF LOWED 
293 015650 004737 027334 8$: JSR PC,CNTCLR :GO CLEAR MASSBUS CONTROLLER 
294 015654 004737 027426 JSR PC,ST.CLK sINITIALIZE THE CLOCK 
295 015660 012777 043306 022764 MOV. #ISR,aRMVEC sRESTORE RH/RM INT. VECTOR 
2% 015666 004037 033240 JSR RO,TYPTIM 3GO TYPE THE TIMES 
615672 001670 111 :POINTER 
297 015674 004037 033132 JSR RO,SPTYP 
298 015700 001746 SP11 
299 015702 000004 EXIT14: SCOPE CALL SCOPE ROUTINE 
9 
318 SLUR AREER EEE EERE EERE EERE EERE EERE E EERE ee 
seTEST 15 MAXIMUM SEEK TIMING TEST 


*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
s*CYLINDER ‘tC', THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
s*CYLINDER 'FC', BOTH SEEKS ARE TIMED, BIT ONLY THE FORWARD SEEKS 
3 *ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR 
7*THE MAXIMUM SEEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 
:*A TOTAL OF 256. SEEKS). MAXIMUM (FORWARD) TIME IS 55.0 MS. 

® 


: THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE 
3; SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE 
: SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT BE 
: TYPED IN THE TIMING REPORT. HOWEVER, THE TIMING REPORT 
; WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES 
: FOR THE REVERSE SEEKS. 


of 
° 
PFU AAA AAR ERE AAR ATER EAA RA ARERR EARARERAEAEAEEHERRER EERE ERED 


015704 1ST15: 
015704 090240 NOP 
015706 033737 001572 001332 SIT BITS+<15*2>, TS TNMS :D0 THIS TEST? 
015714 001002 BNE +6 7BR OIF 
015716 000137 016454 JMP TST16 'NO== JUMP TO TEST16 
015722 012737 000015 001116 MOV #15, $TSTNM SET TEST #15 AND CLEAR (SERFLG) 
015730 004737 030142 JSR PC,LODPRM SLOAD THE PARMETERS FOR THE TEST 
015734 012737 016114 001124 MOV AMTESTI5,$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
015742 013737 002336 001220 MOV RPT ,STIMES GET THE ITERATION COUNT 
015750 112737 000031 001131 MOVB #25. , SERMAX MAX ERRORS ALLOWED FOR TEST 

319 015756 012737 000015 001240 MOV M15, $TESTN i2SET TEST NUMBER IN APT MAIL BOX 
015764 032777 010000 163162 BIT ASwW12,aSWR INHIBIT TYPING TEST NUMBER ? 
015772 007406 BEQ +16 | BR IF YES 


———————ee _ 


=oeee RMO5/5/2 EXT'D DR TST 
15 MAXIMUM SEEK TIMING TEST 


047617 
601240 


015774 104401 


016006 
016007 
016010 001342 
016452 


016022 
032552 


016452 


012737 
012706 001100 
000200 
032736 
016360 
032734 
163346 


000131 


000101 
040000 
001411, 


047076 
045654 
027334 


033000 


000101 
* 040000 


047076 
045654 
027334 


366 016330 104017 


016452 - 
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TYPE .MSGTST 
MOV TESTN,-(SP) 
TYPOS 
.BYTE 3 
BYTE 0 
TST CLKSTA 
BGT 1$ 
JMP EXIT15 
001122 18: MOV #.,$LPADR 
JSR RO; SRCHOO 
BR 2$ 
JMP EXIT15 
001122 28: MOV #.,$LPADR 
047020 MOVB  4&#SEEK,DPB.A+2 
CLR DPB.A+10 
047030 MOV FC,DPB.A+12 
001350 MOV #EXIT15 ,BYPASS 
JSR RO, CALL.A 
MOV ATI2,R3 
001222 MOV #EXIT15, SESCAPE 
TEST15: 
MOV ASTACK, SP 
MOV #128. ,R1 
JSR PC, STRIMR 
163352 MOV #7$ ,QPKV 
022506 MOV MDORT I, @RMVEC 
1$: CLR @PKB 
000034 MOV , LC,RMOC(R4) 
000000 MOV WSEEK,RMCS1(R4) 
163322 mov #131, aPKCS 
W 
163312 BIC #101, aPKCS 
000012 BIT MERRRMDS(R4) 
BEQ 2¢ 
SAVREG 
MOV #DTADPB,R2 
JSR PC,SVRH70 
JSR PC,CNTCLR 
RESREG 
EMT 17 
e$: CLR R5 
JSR PC, COUNT 
CLR aPkB 
000034 MOV FC, RMDC(R4) 
000000 MOV MSEEK ,RMCS1(R4) 
163224 MOV #131,aPKCS 
WAIT 
163214 BIC #101, aPKCS 
000012 BIT MERRRMDS (RG) 
BEQ 3$ 
SAVREG 
MOV ADTADPB,R2 
JSR PC, SVRH70 
JSR PC-CNTCLR 
RE SREG 
EMT 17 


i 
SEQ O0ce 


jTYPE ‘TEST’ 

ZiSAVE $TESTN FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII 

tz TYPE 3 DIGIT(S) 

7; SUPPRESS LEADING ZEROS 


KW11-P CLOCK 

SYES==-START TEST 

ZNO--JUMP TO EXIT15 

SETUP THE LOOP ADDRESS 

"DO A MASSBUS INIT & RECAL 

sRETURN HERE IF NO ERROR 

RETURN HERE ON ERROR 

ERROR LOOP ADDRESS 

> SEEK=COMMAND 

SUSE TRACK 0 & SECTOR 0 

STARTING CYLINDER 

7GO TO EXIT15 IF ERROR 

160 EXECUTE THE COMMAND 
PARAMETER POINTER 

«J ESCAPE TO EXIT15 ON ERROR 


2 SETUP STACK 


REPEAT eee *LC'="FC*’’ 128 TIMES 
sINIT. THE TIMERS 

SETUP VECTOR IN CASE OF OVERFLOW 
>SETUP RM VECT 


ZSTART COUNTING FROM ZERO 
7MAXIMUM CYLINDER 

sSTART A SEEK 

START THE CLOCK 

ZWAIT ON_ INTERRUPT 

STOP THE CLOCK 

SERR=1? 


3;DPB POINTER 
SAVE ALL THE RH/RM REGISTERS 
;GO CLEAR MASSBUS CONTROLLER 
SRESTORE RO~RS 
DISK _ERROR OCCURRED 
2SET THE UP/DOWN SWITCH TO UP 
UP THE COUNT 
sSTART COUNT AT ZERO 
SBEGINNING CYLINDER 
START A SEEK 
3START THE CLOCK 

sWAIT ON_ INTERRUPT 

* STOP THE CLOCK 

7" ERR’ =1? 

NO-~-BRANCH 
“SAVE RO-R5S 
;DPB POINTER 
SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
sRESTORE RO-R5 
DISK ERROR OCCURRED 
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R 
5 MAXIMUM SEEK TI'4ING TEST 


367 016332 


5 
386 016452 


000004 


177777 


000101 
177776 


047076 
045654 
027334 


027334 
027426 
043306 
033240 


033132 


3$: 


163126 78: 


8$: 


022214 


SP12 
EXIT15: SCOPE 


#-1,R5 
PC, COUNT 
TIM.DN¢2 
TIM. DN+6 
R1 

1$ 


8$ 
#101,aPKCS 
PS 


($7) +,RO 
(SP) + 


#DTADPB,R2 
PC,SVRH70 
PC, CNTCLR 


0 
PC,CNTICLR 
PC,ST.CLK. 
MISR,ARMVEC 
RO,TYPTsM 


RO, SPTYP 


SEQ 0089 


:SET THE UP/DOWN SWITCH TO DOWN 

: UPDATE THE COUNT 

:FORGET ABOUT # OF SEEKS BELOW MINIMUM TIME 
PA ABOUT # OF SEEKS ABOVE MAXIMUM TIME 
7;NO--BRANCH 

ZYES@-EXIT 

:STOP THE CLOCK 

:DROP THE PRIORITY 

sPC OF WAIT+2 

sPOP THE PS FROM THE STACK 

7SAVE RO-RS 

:DPB POINTER 

ZSAVE ALL THE RH/RM REGISTERS 

:GO CLEAR MASSBUS CONTROLLER 

RESTORE RO-R5 ; 
:CLOCK OVERF LOWED 

:GO CLEAR MASSBUS CONTROLLER 

sINITIALIZE THE CLOCK 

sRESTORE RH/RM INT. VECTOR 

:GO TYPE THE TIMES 

ZPOINTER 


ZCALL SCOPE ROUTINE 


CZRMVBO RMOS/3/2 EXT'D DR TST 
ADDRESSING TESTS 


SOMONAUEWA-2 


ww 


016454 
016454 
016456 
016464 
016466 


016472 
016500 
016504 
016512 
016520 
016526 


016534 
016542 
016544 
016550 
016554 
016556 
016557 


26 C16560 


al 


38 016672 


i 


012737 
032777 


012737 
012737 


012706 
004737 
013737 
113737 


012737 


001574 
017076 


- 000016 


000016 
010000 


047617 
001240 


017074 
016574 


001100 


033730 
002340 


016672 
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001332 


001116 
001124 


001240 
162412 


001350 
001122 


047110 
047107 


047102 
047104 
001124 
047100 


047100 
001124 


.SBTTL ADDRESSING TESTS 


AU 
:*THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK 
:*AND SECTOR ADDRESS a BOTH ADDRESSING TESTS WILL 

:*BE PERFORMED ON CYLINDER FC. 

ree MOD IT AI TALTYL AL OL OLY ELEPILLLLL ALLL ILLLL ILIAD IL ILL ALLL LILY 


eeer a *S SECTOR AMOOREGSING TEST. 
ieTEST 16 SECTOR ADDRESSING TEST 

Z*THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK ‘¥T''. THE 
T*DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 
S*BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 
*CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED. THEN 
D*SECTOR 0 IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. 


z*THEN SECTOR 1 IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. 


i*THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 
T*REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31. 


+ RERRERRERERRERROREREERRERREREERRORRERTENTEREERR ERROR E EERE REE 


7S116: 
N 
BIT BITS+<16*2>,TSTNMS 300 THIS TEST? 
BNE +6 ;BR IF YES 
JMP TST17 sNO--JUMP TO TEST17 
MOV #16, dh 2SET TEST #16 AND CLEAR (SERFLG) 
JSR PC,LODPR ;LOAD THE PARMETERS FOR THE TEST 
MOV aTESTIO. SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT ,STIMES :GET THE ITERATION COUNT 
MOVB ERR.CT,SERMAX  :MAX ERRORS ALLOWED FOR TEST 
MOV HIG, STESTN 3sSET TEST NUMBER IN APT MAIL BOX 
BIT #SW12,aSWR 7 INHIBIT TYPING TEST NUMBER ? 
BEQ +16 BR IF YES 
TYPE 2MSGTST TYPE ‘TEST* 
MOV STESTN,~(SP) >;SAVE S$TESTN FOR TYPEOUT 
TYPOS 3:GO_ TYPE--OCTAL ASCII 
«BYTE 3 sz TYPE 3 DIGIT(S) 
-BYTE 0 7s SUPPRESS LEADING ZEROS 
MOV #EXIT16,BYPASS 

TESTIG MOV MTESTI6,SLPADR ;SETUP THE LOOP ADDRESS 
MOV AWSTACK,SP SET THE STACK POINTER 
JSR PCF ILBUF FILL THE BUFFER WITH SECTOR ADDRESSES 
MOV FC ,DTADPB+12 CYLINDER 
MOVB FT ,DTADPB+11 3 TRACK 
CLRB DTADPB+10 : SECTOR 
MOV TRCKWC ,DTADPB+4 ; WORD COUNT 
MOV #BUFFER,DTADPB+6 ;BUFFER ADDRESS 
MOV #. SLPERR SETUP THE ERROR LOOP ADDRESS 
MOV ASTACK,SP LOAD THE STACK POINTER 
MOV MARITE,DTADPB+2 ;COMMAND=WRITE DATA 
JSR RO,DRVCAL START A DATA TRANSFER 
MOV HWRCKD, DEAD S COMMAND=WRITE CHECK DATA 
MOV #.,$LPERR [SETUP THE ERROR LOOP ADDRESS 


SEQ 0090 


RMO5/3/2 EXT'D 
ADDRESSING TEST 


SECTOR 


016700 
016704 
016710 


017074 


017076 
017076 
017100 
017106 
017110 


017114 


017150 


8 
017156 


012706 


000004 


000240 
033737 
001002 
000137 


012737 


012737 
032777 


DR TST 


001100 


054522 
016752 


001000 
002470 


001576 
017542 
000017 


000017 
010006 
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001124 


047100 


001124 


047100 
047102 


001124 
047100 


047102 
047104 


001332 


001116 


001124 
001220 
001131 
001240 


161770 


SEQ 009! 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
JSR RO,DRVCAL START A DATA TRANSFER 
MOV #.,$LPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV ASTACK, SP LOAD THE STACK POINTER 
JSR RO, CLRBUF ;CLEAR BUFFER 
MOV READ ,DTADPB+2 ; COMMAND = READ 
JSR RO,DRVCAL START A DATA TRANSFER 
JSR RO,CKSCTR ;CHECK THE SECTOR DATA READ 
MOV ABUFFER,RO ;BUFFER ADDRESS 
CLR R1 sFIRST SECTOR 
MOV #.,$LPERR SETUP THE ERROR LOOP ADDRESS 
MOV #STACK, SP ;LOAD THE STACK POINTER 
1$: MOV MWRITE ,OTADPB+2 ;COMMAND=WRITE DATA 
MOV #SCTRWC ,DTADPB+4- ;WORD COUNT 
MOV RO, DTADPB+6 ;BUFFER ADDRESS 
MOVB R1DTADPB+10 SECTOR 
JSR RO,DRVCAL START A DATA TRANSFER 
MOV #.,$LPERR SETUP THE ERROR LOOP ADDRESS 
MOV AMSTACK,SP ;LOAD THE STACK POINTER 


MOV AWRCKD ,DTADPB+2 ; COMMAND=WRITE CHECK DATA 
MOV TRCKWC ,DTADPB+4 ; WORD COUNT 


MOV WBUFFER ,DTADPB+6 ;BUFFER ADDRESS 
CLRB DTADPA+10 7 SECTOR 
JSR RO,DRVCAL TSTART A DATA TRANSFER 
aR wiz. .RO MOVE TO NEXT SECTOR 
CMP BRMLMT +26, R1 3 DONE? 
BHIS 1$ > NO~~BRANCH 

EXIT16: SCOPE CALL SCOPE ROUTINE 


oe RRR REE ERAEAREREEEAREREEEEEAETEEEEEEEA EAE KEEEKERE EEE 
SATEST 7 TRACK ADDRESSING TEST 

:*THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

7*IN CYLINDER ‘FC'' SECTOR ‘FS’ OF EVERY TRACK WITH EACH TRACK 
Z*GETTING ITS OWN TRACK ADDRESS. 

eA WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO ENSURE 

S*THE DATA IS VALID, THEN TRACK 0 IS REWRITTEN AND TRACK 1 

> * THROUGH LAST TRACK IS WRITE CHECKED. THEN TRACK 1 IS 

7 *REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED. 
=*THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO LAST 
T*TRACK AND WRITE CHECKING LAST TRACK. 


SRR EER EERE KERR AREER EERE EER RE REE EERE REE EEE EERE EERE AEE AES 


18117: 
NOP 
BIT BITS+<17*2>,TSTNMS ;D0 THIS TEST? 
BNE +6 ;BR IF YES 
JMP TST20 sNO-~JUMP TO TEST20 
MOV #17, $TSTNM SET TEST 417 AND CLEAR (S$ERFLG) 
JSR PC ,LODPRKM [LOAD THE PARMETERS FOR THE TEST 
MOV #téST 17, $LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT, $TIMES =GET THE ITERATION COUNT 
MOVB ERR. CT, SERMAX :MAX ERRORS ALLOWED FOR TEST 
MOV #17, STESTN sSET TEST NUMBER IN APT MAIL BOX 
BIT ASW12,aSWR INHIBIT TYPING TEST NUMBER ? 


“Reve 


= 


BEe 


en ek ed et at ed wt 
Na et et ot ot 
COWNAUSWN HO 


RM05/3/2 EXT'D 
TRACK ADDRESSING TEST 


017164 


017350 
017356 
017362 
017366 
017374 
017376 
017402 
017404 


017406 
017412 
017414 


oo 
need ed 
NN 
Ron 
&M 


017502 


001406 
104401 
013746 
104403 
003 
000 


912737 
012737 


012706 
006737 


110037 


OR TST 


047617 
007240 


017540 
017216 


001100 
033730 


054522 


017266 
0€1100 


047107 
031204 
001000 


001374 
054522 


017336 
001300 


000151 
047107 
031204 
001000 


001374 


047107 
054522 


001060 


017436 
001100 
000161 
031204 


001000 
047107 
017474 
001100 
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001350 
001122 


047100 
067110 
047106 
047102 
047104 


001124 


047106 


047104 


001124 


047100 


047104 


047104 


047104 
001124 
047100 


047104 
001124 


TEST "7: 


2s: 


3$: 


4$: 


5$: 


6f: 


BEQ 
*YPE 
MOV 
TYPOS 
-BYTE 


SEG UUs, 


.016 :BR IF YES 
MSGTST “TYPE ‘TEST 
Stestn. =(SP) 77SAVE $TESTN FOR TYPEOUT 
7:G0 TYPE=-OCT& ASCII 
3 7: TYPE 3 DIGIT(S) 
Cc 27SUPPRISS LEADING ZEROS 


#EXIT17, BYPASS 
MTESTI7,$LPADR ;SETUP THE LOOP ADDRESS 


#STACK, SP Set THE STACK POINTER 

PC,F ILBUF FILL THE ae Ae TRACK ADDRESS 
MURITE ,DTADPB+2 ; “COMMAND =WRT E DO. 

FC ,DTADPB+12 CYLINDER 

FS,DTADPB+10 SECTOR 


ASCTRWC ,DTADPR+4 :WORD COUNT 

WBUF FER .DTADPA+6 [BUFFER ADDRESS 

RO 2 TRACK=C 

#. ,SLPERR “SETUP THE ERROR LOOP ADDRESS 

#STACK, SP “LOAD THE STACY POINTER 

RO. DTADPB+11 Z TRACK ADDRESS 

RO, DRVCAL : START A DATA TRANSFER 

#256. *2. ,DTADPR+6 SUPDATE BUFFER ADDRESS 
RO S UPDATE TRACK NUMBER 

LSTRK,RO “OUT OF TRACKS? 

1 =NO--BRANCH 

#BUF FER .DTADPB+6 sBUFEER ADDRESS 

#. .SLPERR :SETUP THE ERROR LOOP ADDRESS 
aSTACK, SP “LOAD THE STACK POINTER 
MURCKD ,DTADPB+2 ; COMMAND=WRITE CHECK 

RO, DTADPB+11 STRACK ADDRESS 

RO, DRVCAL = START A DATA TRANSFER 


9256. #2. ,DTADPB+6 SUPDATE BUFFER ADDRESS 
RO SUPDATE TRACK NUMBER 


LSTRK RO sQUT OF TRACKS? 

es [NO-~BRANCH 

RO sFIRST TRACK ADDRESS 
ae -eigel aio 


FORM BUFFER ADDRESS 


BUFFER, DTADPB+6" SBUFFER ADDRESS 


#956.#2. .DTADPB+6 
4$ 


#, ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
aSTACK, SP “LOAD THE STACK POINTER 

WRITE DTADPB+2 =: COMMAND=WRITE DATA 

RO, DRVCAL [START A DATA TRANSFER 
#256.*2. ,DTADPB+6 ZUPDATE BUFFER ADDRESS 
DTADPB+1 1 “MOVE TO NEXT TRACK 

#.,$LPERR :SETUP THE ERROR LOOP ADDRESS 
aSTACK, SP “LOAD THE STACK POINTER 


SO re ee eee eeme Senyremnenee wee 
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vam) 

aN 

NX 
4 wos FS 
Norn 
wWOon~n oO 


TRACK ADDRESSING TEST SEG 00+’ 
017506 012737 000151 047100 MOV MWRCKD .DTADPB+2 ;COMMAND=WRITE CHECK DATA 
017514 004037 631204 JSR RO,DRVCAL START A DATA TRANSFER 
017520 123737 001374 047107 CMPB LSTRK,DTADPB+17 ;OUT OF TRACKS? 
130 017526 003355 BGT 6$ 7 NO~-BRANCH 
131 017530 005200 INC RO iMEXT TRACK TO WRITE 
132 017532 023700 001374 CMP LSTRK,RO ZOUT OF TRACKS? 
133 017536 003323 BGT 3$ 3NO-~BRANCH 
ie 017540 000004 EXIT17: SCOPE CALL SCOPE ROUTINE 
155 
ee Py SAARAARERAARERARAARRARATEARARERAARRERAAREHEHAHEKEKAHKHEKHKhaeEhahhkae 
T*TEST 20 DATA TEST 
p*THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
:*''FC'' THROUGH 'LC'' BY THE INCREMENT ‘‘IC’’ USING THE DATA PATTERNS 
: *SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 
(1, SET NT’ TO ‘FT’’ THEN REPEAT 2-4 UNTIL ‘NT’ > eon 
i. 2. WRITE THEN WRITE CHECK "FS'* THROUGH 'LS’’ OF TRACK 
:* (3. READ THEN SOFTWARE COMPARE "FS'* THROUGH "'LS’’ OF TRACK yr 
s* (4. INCREMENT ‘NT’ BY “IT 
i* (5. REPEAT STEPS vee FOR EACH DATA PATTERN 
z* (6. REPEAT STEPS 1-5 FOR °FC’’ THROUGH “LC’’ ADVANCING BY “‘IC’’ 
7* 
T*IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
*THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHFCK IS 
> *ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
T*WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
7 *FATAL AND NO ag OCCURS. 
z*FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 
Z*PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 
SEAT RAAEAAR AREA RARE AERERAREREERAREREAERARH RARER ETHER EEE ERE REED 
017542 TST20: 
017542 900240 NOP 
017544 033737 001540 001334 BIT BITS+<20*2-40>, a 3D0 THIS TEST ” 
017552 001002 . BNE +6 3BR IF YES 
017554 000137 020322 JMP TST21 NOW JUMP TO TEST21 
017560 012737 000020 001116 MOV #20, ela SET TEST #20 AND CLEAR (SERFLG) 
017566 004737 030142 $ JSR PC,L sLOAD THE PARMETERS FOR THE TEST 
017572 012737 017770 001124 MOV PTESTOO RSLPERR sSETUP THE LOOP ON ERROR ADDRESS 
017600 013737 002336 001220 MOV RPT, STIMES GET THE ITERATION COUNT 
017606 113737 001464 001131 MOVB ERR. CT, SERMAX MAX ERRORS ALLOWED FOR TEST 
157 C17614 012737 000020 001240 MOV #20,$TESIN 33SET TEST NUMBER IN APT MAIL BOX 
017622 032777 010000 161324 BIT #SW12,aSWR 7 INHIBIT TYPING TEST NUMBER ? 
017636 001406 BEO -+16 SBR IF YES 
017632 1044071 047617 TYPE -MSGTST TYPE "TEST' 
017636 013746 001240 MOV STESTN,~(SP) i:SAVE STESTN FOR TYPEOUT 
017642 104403 TYPOS 2+G0 TYPE--OCTAL ASCII 
017644 003 -BYTE 3 TYPE 3 DIGIT(S) 
017645 000 -BYTE 0 2;SUPPRESS LEADING ZEROS 
158 
Vea ;SET UP THE TRACK WORD COUNT FOR DATA TRANFER 
161 017646 012737 017646 001122 MOV #.,$LPADR SETUP THE LOOP ADDRESS 
162 017654 005000 CLR RO SCLEAR SWITCH 
163 017656 005004 CLR R4 FORM WORD COUNT IN RG 


CZRMVBO 
T20 


017660 
017664 
166 017670 


168 917672 
169 017676 
170 017700 


017702 
917706 
017710 
017712 
176 017714 
017716 
017720 


017722 


tt ed ed as 
00 09 0000 NIN 
Rees say 

oO 

= 

N 

™N 

WG 

oO 


ad ed 2) md ed ed 

~O © 00 Go 

LSSELES 
oO 
— 
N 
N 
oy 
N 


017746 
017754 
220 017762 
017770 

017770 

017774 

020000 

020004 


| 221 020066 
222 020072 





013701 
163701 
002004 


063701 
005201 
005100 


062704 
005301 


002374 
005404 


002374 
005405 


113737 
012737 
012737 


004037 
000536 


005000 
036037 


110237 
020127 


001515 


010437 
023701 


RMO5/3/2 EXT'D DR TST 
DATA TEST 


002356 
G02354 


002470 


000400 


002470 
002354 
000400 


002354 
054522 
020320 
001100 
001434 
002340 


000040 
033654 


001540 
002346 
047110 
047107 
001466 
001574 


047102 
002342 
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047106 
047104 
001350 


002360 


1$: 


es: 


3$: 


TEST20: 


1$: 


4%: 


10$: 


MOV LS,R1 
SUB FS,R1 
BGE 1$ 
ADD PRMLMT+24,R1 
INC R1 
COM RO 
ADD #256. ,RG 
DEC R1 
BSE 1$ 
NEG RS 
MOV R4,RS 
TST R0 
BEQ 3$ 
CLR R5 
MOV PRMLMT+24,R1 
SUB FS,R1 
ADD #256. .R5 
DEC R1 
BGE 2$ 
NEG R5 
SET UP 
MOVB FS,DTADPB+10 
mOV BUFFER .DTADPB+ 
MOV #EXIT20, BYPASS 
MOV #STACK,SP 
CLR WCEFLG 
MOV RI 
BR 
TST (RQ) + 
CMP #16.%2,,R0 
BGT 3$ 
JSR RO. INCCYL 
BR €¥IT20 
3;DO NEXT CYLINDER 
CLR RO 
BIT BITS(RO) ,PAT 
BEG 1$ 
MOV FT,R2 
MOV R1,DTADPB+12 
MOVB R2, DTADPB+11 
CMP R1,4822. 
BNE 10$ 
CMP R2,LSTRK 
BEQ EXIT20 
MOV R4,DTADPB+4 
CMP LC,R1 


SEQ 0094 


;LOAD LAST SECTOR 
7 COMPARE WITH FIRST SECTOR 
sSKIP NEXT IF FS < OR = LS 


: ADD MAXIMUM SECTOR ADDRESS 10 
MAKE THE DIFFERENCE POSITIVE 
iSET SWITCH FOR FS > LS 


;WORDS/SECTOR 
3LS = FS SECTORS MINUS ONE 


ZINCR. WORD COUNT IF NC. SECTORS STILL + 
[FORM NEGATIVE WORD COUNT 

COPY NORMAL WORD COUNT INTO SMALL WC 
FS > LS SWITCH SET? 

NO, SKIP NEXT 


FORM WORD COUNT FOR FS > iS 
[MAX SECTOR ADDRESS 
; SUBTRACT THE FIRST SECTOR 


SWORDS/SECTOR 

NO SECTORS MINUS ONE 
7 INCR. WORD COUNT IF 
7FORM NEGATIVE WORD COUNT FOR THIS CASE 


NO. SECTORS STILL + 


FOR DATA TRANSFERS AND PATTERN VARIATICNS 


SECTOR 


DATA BUFFER 


;LOAD THE STACK POINTER 
CLEAR THE WRITE CHECK ERROR FLAG 


ICKUP FIRST CYLINDER 


TSKIP PATTERN SET-UP FIRST TIME THRU 


sMOVE TO NEXT DATA PATTERN 
:OUT OF PATTERNS? 


ZNO, STAY ON THIS CYLINDER UNTIL DONE 
sMOVE TO NEXT CYLINDER 
;OUT OF CYLINDERS 


START WITH PATTERN 0 


iTHIS PATTERN SELECTED? 


NO. GO BACK AND GET ONE THAT WAS 
sFIRST TRACK 

sLOAD THE CYLINDER 

;LOAD THE TRACK 


CHECK FOR LAST DISK tartan (DEC144 FILE) 
:SKIP LAST TRACK CHECK IF NO 

;LAST DISK TRACK ? 

DON'T TEST LAST TRACK AS IT HAS BAD 
[BLOCK INFORMATION aOneD ON IT 

;LOAD THE WORD COUN 

LAST DISK CHLINDER TO TEST ? 


cZRMVBO 
T20 


RMO5/3/2 EXT'D DR TST 
DATA TEST 


020076 
620100 


020154 


020162 
020166 
620174 
020176 
020204 
020210 
020216 
620222 
020226 


020320 


003005 
023702 


012796 
012737 


004037 
032777 
001012 
012737 
012706 
012737 
004037 
005737 
001404 
032777 
001424 
032777 
001020 
012737 


000004 


601374 


047102 
161036 


000030 


034404 
000020 


020142 


001100 
000161 


031204 
000010 


020176 
001100 
000151 
031204 
001434 
000001 
000004 


020250 


000002 


034474 
033624 
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SEQ 00S‘ 
BGT 5$ INO, SKIP TRACK CHECK 
CMP LSTRK,R2 ZLAST DISK TRACK TO TES! ? 
BGE 5$ 7NO, SKIP NEXT 
MOV R5,DTADPB+4 SHORT WORD COUNT 
9%; MOV aSWR,R3 ZINHIBIT WRITE AND 
COM R3 WRITE CHECK? 
BIT #SW04 !SWO3,R3 
BEQ 7$ 7 YES--BRANCH 
JSR PC, SETBUF MOVE Hele eee INTO THE BUFFER 
161014 BIT #5004 ,aSwWR ZINHIBIT WRITE? 
BNE 6$ YES, DO NEXT PORTION OF TESTING 
001124 MOV #. , SLPERR SETUP THE ERROR LOOP ADDRESS 
MOV STACK, SP [LOAD THE STACK POINTER 
047100 MOV MWRITE ,DTADPB+2 ;COMMAND=WRITE DATA 
3D0 A DATA TRANSFER 
JSR RO,DRVCAL START A DATA TRANSFEP 
169760 6$: BIT #SWO5 ,aSWR ZS INAIBIT WRITE CHECK? 
BNE 7$ ; YES--BRANCH 
001124 MOV #.  SLPERR SETUP THE ERROR LOOP ADDRESS 
MOV MSTACK,SP ;LOAD THE STACK POINTER 
047100 MOY MWRCKD, puneeese > COMMAND=WRITE CHECK DATA 
JSR RO,DRVCA ;START A DATA TRANSFER 
7$: TST WCEFLG SWRITE CHECK ERROR FLAG SET? 
BEQ 8$ ~—BRANCTH 
160716 BIT #SWO0 ,aSWR [PERFORM READ AFTER ATAL ‘WCE'? 
BEQ 3NO--BRANCH 
160706 8$: BIT #SWO2 ,ASWR ; INHIBIT READ DATA AND SOFTWARE COMPARE ” 
BNE 9$ 3 YES~-BRANCH 
001124 MOV #.,$LPERR ZSETUP THE ERROR LOOP ADDRESS 
MOV STACK SP SLOAD THE STACK POINTER 
047100 MOV WREAD ,DTADPB+2 : COMMAND=READ 
JSR RO, DRVCAL START A DATA TRANSFER 
160652 BIT #Sw01, aSwR > COMPARE THE DATA? 
BNE 9$ 3NO--BRANCH 
JSR PC ,DATCMP sYES--D0 IT 
$: JSR RO, INCTRK sMOVE TO NEXT TRACK 
BR 1$ :0UT OF TRACKS GO TO NEXT PATTERN 
BR 4$ ; LOOP 
EXIT20: SCOPE ‘ ZCALL SCOPE ROUTINE 
* RARAERRAAAAAERARRRAERARAEARAEAARARRAERAAREERRERAHHERERARARERRAREAHAE 
T*TCST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


:*STARTING AT "¥('' AND GOING SEQUENTIALLY TO ‘LC** THE DISK 
z*PACK IS WRITTEN wITH A RANDOM PATTERN. THE FIRST TWO WORDS 
:*OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 


s*FOR THAT SECTOR. 


o*THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘R'* TIMES 


ze''R'’ DEFAULTS TO 1000. 


ie) GENERATE A RANDOM SECTOR 
te GENERATED IN 1. 


ADDRESS 


WRITE A RANDOM PATTERN AT THE ADDRESS 


*3) GENERATE A NEW RANDOM SECTOR ADDRESS 


F 8 
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T21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


2*4) READ THE SECTOR AT THE ADDRESS 
if GENERATED IN 3. 
3*5) DO A SOFTWARE CHECK OF THE DATA READ IN 4 AGAINST 
if THE CRIGINAL RANDOM PACK DATA. 
3*6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
i*7) GENERATE A NEW RANDOM SECTOR ADDRESS 
:*8) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 7. 
149) DO A SOFTWARE CHECK OF THE DATA READ IN 8 


SEO 005, 


[*10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
: PCB RRRSRRERRRERER ERE RES EE AEE RRR R ARERR RRR RRR R REE E ERE EERE REE RRR SE 
020322 $121: 
020322 000240 NOP 
020324 033737 001542 001334 BIT BITS*#<21#2=-40>,TSTNMS*+2 ;DO THIS TEST ? 
020332 001002 BNE +6 BR IF YES 
020334 000137 021140 JMP TST 22 3NO=-JUMP TO TEST22 
020340 012737 000021 001116 MOV #21, eg SET TEST #21 AND CLEAR (SERFLG) 
020346 004737 030142 JSR PC, LODPR LOAD THE PARMETERS FOR THE TEST 
620352 012737 020616 001124 MOV atéSto1, SLPERR SETUP THE LOOP ON ERROR ADDRESS 
020360 013737 002336 001220 MOV RPT ,STIMES 3GET THE ITERATION COUNT 
020366 113737 001464 001131 MOVB ERR.CT,SERMAX  :MAX ERRORS ALLOWED FOR TEST 
Sea 020374 012737 0C0021 001240 MOV #21,$TESTN 3.SET TEST NUMBER IN APT MAIL BOK 
020402 032777 010000 160544 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER 7 
020410 001406 BEQ +16 IF YES 
020412 104401 047617 TYPE -MSGTST STYPE *TEST* 
020416 013746 001240 MOV STESTN,-(SP) T;SAVE STESTN FOR TYPEOUT 
020422 104403 TYPOS 73G0 TYPE~-OCTAL ASCII 
020424 003 BYTE 3 TYPE 3 DIGIT(S) 
020425 000 -BYTE 0 7 SUPPRESS LEADING ZEROS 
289 020426 012737 020426 001122 MOV #.,SLPADR SETUP THE LOOP ADDRESS 
292 020434 012737 021136 001350 MOV #EXIT21 BYPASS 
293 020442 012737 176543 026524 MOV #176543,SHINUM =; PRIME THE RANDOM NUMBER GENERATOR 
294. 020450 012737 123456 026526 MOV #123456, $LONUM 
295 020456 013737 002340 047110 MOV FC ,DTADPB+12 2 CYLINDER 
296 020464 013737 001452 047102 MOV TRCKWC .DTADPB+% :WORD COUNT FOR 32/30 SECTORS (FULL TRACK 
297 020472 012737 054522 047104 MOV WUF FER ,DTADPB+6 ;BUFFER ADDRESS 
298 020500 012737 000161 047100 MOV MWRITE ,OTADPB+2 ; COMMMAND 
299 020506 032737 100000 001314 BIT #SW15,C.SWR SWRITE THE DISK PACK BEFORE TESTING? 
300 C20514 001027 BNE 3$ 7NO--BEGIN TESTING 
301 020516 004037 035012 JSR RO,FILRAN FILL DATA BUFFER WITH RANDOM DATA 
302 020522 005037 047106 1$: CLR DTADPB+10 }SECTOR AND TRACK 
303 020526 012737 020526 001124 MOV #., SLPERR SETUP THE ERROR LOOP ADDRESS 
020534 012706 001100 MOV MSTACK , SP LOAD THE STACK POINTER 
304 020540 e$: 
020540 004037 031204 JSR RO,ORVCAL START A DATA TRANSFER 
305 020544 105237 047107 INCB DTADPB+11 NEXT TRACK 
306 020550 123737 001374 047107 ¢ LSTRK ,DTADPB?11 TIME FOR NEXT CYLINDER ? 
7 020556 C02370 BGE 2s 7NO--DO NEXT TRACK ON THIS CYL. 
308 020560 005237 047310 INC DTADPB+12 2s INCR CYLINDER ADDRESS 
309 020564 023737 002342 047110U CMP LC,DTADPB+12 ;OUT OF CYLINDERS? 
af 020572 902353 BGE 1$ NO=-CONTINUE SEQUENTIAL 85% GM @RITE 
312 
313 020574 012737 177400 047102 3$: MOV ASCTRWC ,DTADPB+4 sa#0RD COUNT 


7R™,B0 
“5 


318 


FMO5/3/2 EXT'D 


RANDOM 
020602 


020744 
020746 


020752 


021014 


021020 
021024 
021032 
021040 
021046 
021052 
C21056 
021062 
021064 


021070 


ADDRE SS 


012737 
012737 


012706 


004037 
012737 
012706 
004037 


004037 


100402 
004037 


013737 


012737 
012737 
012706 
004037 


004037 


DR TST 


AND RANDOM PATTERN TEST 


020616 
620616 


001100 


047104 
035232 


020664 
001100 
031204 


035266 


001466 
035034 
001440 


054522 


021002 
001100 
031204 


035266 


001466 
035034 


001440 
001442 
000151 
054522 
021120 
001100 
031204 
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001122 
001124 


001440 
001442 
047100 


001124 


047100 
047104 
001124 


047106 
047110 
047100 
047104 


001124 


047100 
047104 
001124 


047106 
047110 
047100 
047104 
001124 


TEST21: 


EXIT21: 


SCOPE 


ATEST21T,$LPADR 
MTEST21, SLPERR 


WSTACK, SP sSET STACK POINIER 

RO, RANADR ‘GENERATE A RANDOM ADDRESS 

DTADPB+°0,SVADR :SAVE THE TRACK/SECTOR 

DTADPB+12.SVADR+2 ;SAVE THE CYLINDER 

MWRITE ,DTADPB+2 ; COMMAND=WRITE DATA 

#RBUFFER,R1 SWRITE BUFFER ADDRESS FOR ‘'RANPAT'’ 

R1,DTADPB+6 ‘INTO THE DATA PARAMETER BLOCK 

RO RANPAT “GENERATE RANDOM 256 WORD PATTERN 
SAND PUT INTO THE WRITE BUFFER 

#. ,SLPERR SSETUP THE ERROR LOOP ADORESS 

ASTACK, SP “LOAD THE STACK POINTER 

RO, DRVCAL ‘START A DATA TRANSFER 

RO,RANADR ;GENERATE A NEW RANDOM ADDRESS 


AREAD ,DTADPB+? ; COMMAND=READ DATA 
MBUFFER+512.,DTADPB3+6 ;READ BUFFER ADDRESS 


#.,$LPERR :SETUP THE ERROR LOOP ADDRESS 

STACK, SP 3LOAD THE STACK POINTER 

RO,DRVCAL ZSTART A DATA TRANSFER 

BASFLG 7 IF BAD SECTOR ENCOUNTERED, SKIP NEXT CALL 
+6 DON'T COMPARE DATA 

RO,RANCK ZSOFTWARE CHECK THE DATA 


SVADR,DTADPB+10 ;GET ADDRESS OF WHERE THE LAST 

SVADR*2,DTADPB+12 WRITE WAS PERFORMED 

MWRCKD,DTADPB+2 ;COMMAND=WRITE CHECK DATA 

WRUF FER, DTADPB+6, ZDATA BUFFER ADDRESS FOR HARDWARE 
=CHECK OF THE DATA 


#. ,SLPERR 3SETUP THE ERROR LOOF ADDRESS 
MSTACK , SP sLOAD THE STACK POINTER 
RO,DRVCAL START A DATA TRANSFER : 
RO,RANADR ;GENERATE A NEW RANDOM ADDRESS 


READ ,DTADPB+2 =; COMMAND=READ 
MBUFFER*512.,DTADPB+6 ;DATA BUFFER ADDRESS 


#,SLPERR sSETUP THE ERROR LOOP ADDRESS 
BSTACK, SP ‘LOAD THE STACK POINTER 

RO, DRVCAL “START A DATA TRANSFER 
BASFLG TENCOUNTER BAD SECTOR ? 

+6 “DON'T COMPARE DATA IF SO 
RO.RANCK “SOFTWARE CHECK THE DATA 
SVADR,DTADPB+10_ ;GET DISK ADDRESS OF THE 
SVADR*2 ,DTADP8+12 LAST WRITE 
WWRCKD,,DTADPB+2 ; COMMAND= URITE CHECK DATA 
WRUF FER, DTADPB+6_ :DATA BUFFER ADDRESS 
#, ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
WSTACK, SP “LOAD THE STACK POINTER 
RO,DRVCAL :START A DATA TRANSFER 


CALL SCOPE ROUTINE 


© RARAERERARERAAERARERHEARETERERAREROERARARAHAKAEHEEHEHREHREHHAORH HE HARES ES 


TeTEST 22 


SEEK TIME ADJUSTMENT TEST 


C2 
T2 


RMVBO RMO5S/3/2 EXT'D DR TST 
SEEK TIME ADJUSTMENT TEST 


5 
« 


373 


386 
387 
388 
389 
390 
395 


021152 


021156 
021164 
021170 
021176 
021204 
021212 


021220 
621226 
021230 
021234 
021240 
021242 
021243 


021244 


021324 
021330 
021332 


000240 
OFare 


001002 
000137 
012737 
004737 
012737 
013737 


112737 
012737 


032777 
001406 
104401 
013746 
104403 

003 

000 


012737 
012706 


013737 
112737 


000004 


001544 
021334 
000022 


000022 
010000 


047617 
001240 


021252 


001100 
002342 
000105 
030402 
032326 


002340 
000105 
030402 
032326 
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001334 


001116 


001124 


001240 
157726 


G01122 


047030 
047020 


047030 
047020 


seTHIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 &@ 255 TO ALLOW THE 
*OPERATOR TO ADJUST THE AVERAGE SEEK TIME ON AN RMO5/3/2 USING "HE 


2*DDU. 


THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 


3*SO THAT THE AVERAGE SFEK TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


S RAAARAEHRAHRAARARERERARRERARARAERAREERARKAEEEAREREEEEEEERTEGEKREHEAKEREHEHEE 


TST22: 
NOP 
BIT 
BNE 
JMP 


MOV 
JSR 


TEST22: 


. WORD 
EXIT22: SCOPE 


BITS*#<222#2-40>,TSTNMS*2 ;:00 THIS TEST ? 
+6 BR IF S 


$EOP 


#22,$TSTNM 

PC ,LODPRM 
HTEST22,$LPERR 
RPT ,STIMES 
#100. , SERMAX 
#22,$STESTN 


#SW12,aSWR 
+16 


"MSGTST 
STESTN,-(SP) 


3 
0 


MTEST22,$LPADR 


#STACK,SP 

LC, DPB.A+12 
#SEEK ,DPB.Ar2 
RO,CALL.A 

RO, STALL 
STALLS 

FC, DPB.A+12 
WSEEK ,DPB.At2 
RO,CALL.A 

RO, STALL 
STALL3 


Y 
sNO--GO TO THE FND OF THE PROGRAM 


SET TEST #22 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
sGET THE ITERATION COUNT 

MAX ERRORS ALLOWED FOR TEST 
33SET TEST NUMBER IN APT MAIL BOX 


: INHIBIT TYPING TEST NUMBER ? 
:BR IF YES 

: TYPE ‘TEST’ 

SAVE $TESTN FOR TYPEOUT 
73G0 TYPE--OCTAL ASCII 

si TYPE 3 DIGIT(S) 

2 SUPPRESS LEADING ZEROS 


SETUP THE LOOP ADDRESS 


ZSETUP THE STACK POINTER 
sENDING CYLINDER 

7 SEEK=COMMAND 

:GO EXECUTE THE COMMAND 
STALL 

ZADDRESS OF STALL VALUE 
sSTARTING CYLINDER 

7; SEEK=COMMAND 

7GO EXECUTE THE COMMAND 
:STALL 

sADDRESS OF STALL VALUE 
ZCALL SCOPE ROUTINE 
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END OF PASS ROUTINE SEG 00% 


< -SBITL END OF PASS ROUTINE 


i ee ee ee ee ee 
b* INCREMENT THE PAS NUMBER ($PASS 

:* INDICATE END~OF ~PROGRAM aren 3 ’ PASSES THRU THE PROGRAM 

:*1F THERES A mony os GO TO IT 

:*IF THERE ISN'T JUMP TO RTURN 


021334 SEOP: 

021334 104491 021342 TYPE ,65$ zTYPE ASCIZ STRING 

021340 000407 BR 64$ GET OVER THE ASCIZ 
27658: .ASCIZ <CRLF><LF>/END of "PASS/ 

021360 648: 

021360 104401 021366 TYPE -07$ ccTYPE ASCIZ STRING 

021364 000405 BR 66$ 2:GET OVER THE ASCIZ 
23678: .ASCIZ / ON ORIVE/ 

021400 668: 

021400 013746 001352 MOV CHKDRV,~(SP) +3 SAVE CHKDRV FOR TYPEOUT 

021404 104403 TYPOS GO TYPE=-OCTAL ASCII 

C21406 002 BYTE 2 +S TYPE 2 DIGIT(S) 

021407 000 BYTE 0) 2 SUPPRESS LEADING ZEROS 

021410 005737 001126 TST SERTTL ZANY ERRORS DETECTED ? 

021414 001420 BEQ 1$ :BR IF NO 

021416 104401 021424 TYPE ,69$ iz TYPE ASCIZ STRING 

021422 000412 BR 68$ :GET OVER THE ASCIZ 
7:69%: .ASCIZ / ERRORS DETECTED= / 

021450 688: 

021450 013746 001126 MOV SERTTL -—(SP) 2 SAVE SERTTL FOR TYPEOUT 

021454 104402 TYPOC 22GO TYPE--OCTAL ASCII(ALL DIGITS) 

021456 005037 0061126 18: CLR SERTTL :ZERO ERROR TOTAL 

021462 005037 0vU1116 CLR STSTNM :-ZERO THE TEST NIM@BER 

021466 005037 001220 CLR STIMES 23ZERO THE NUMBER OF ITERATIONS 

021472 005237 001242 INC $PASS ae THE PASS NUMBER. 

021476 042737 100000 001242 BIC #100000, $PASS >: DON'T ALLOW A NEG. NUMBER 

021504 005327 DEC (PC) + 37 LOOP? 

021506 000010 SEOPCT: .WORD 8. 

021510 003027 BGT SDOAGN scYES 

021512 012757 MOV (PC) + ,a(PC)+ CCRESTORE ( QUNTER 

021514 000010 SENDCT: .WORD 8. 

027576 9027506 SEOPCT 

021520 104401 021526 TYPE ,605$ ZTYPE aS<I2 STRING 

027524 000407 BR 64$ SIGET OVER THE ASCIZ 
27658: .ASCIZ <CRLF>/END OF TEST/<CRLF> 

021544 64$: 

021544 104401 021574 TYPE - SENULL : TYPE NULL CHARACTER 

021550 013700 000042 $GET42: MOV a62,R0 72GET MONITOR ADDRESS 

021554 001405 BEQ SDOAGN : ;BRANCH IF NO MONITOR 

021556 900005 RESET :: CLEAR THE WORLD 

021560 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

021562 000240 NOP eae ROOM 

021564 000240 » NOP FOR ' 

021566 0600240 NOP S:ACTV1 

021570 $DOAGN: t 

021570 000137 JMP acPC)+¢ 7 cRETURN 

021572 021600 $RINAD: .WORD  RTURN 

021574 377 377 000 $ENULL: .AYTE -1,-1,0 tcNULL CHARACTER STRING 


-EVEN 


J 
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END OF PASS ROUTINE 


021604 004737 024060 
021610 004737 027426 
021614 000137 006662 


ANE WP 


021600 012706 601100 RTURN: 


MOV 
JSR 
JSR 
JMP 


@STACK,SP 
PC, STKINT 
PC,ST.CLK 
RSTART 


sRESTORE STACK 

sMAKE SURE KEYBOARD INTERRUPT AND 
tINITIALIZE THE CLOCK 

sRETURN TO RESTART 


SEY 0100 


CZRMVBO RMOS/3/2 EXT'D DR TST 
ERROR HANDLER ROUTINE 


4 


021620 
021624 


022026 
022030 


022034 


022076 


105037 
104407 


012657 
022737 


112737 
000402 


022260 
000400 
001326 
001534 
001536 
001117 


001116 
002000 


001224 


000177 
022260 
177777 
000004 
022014 
177766 


177777 
022030 


000004 
177777 
000001 
000001 


001130 
000177 
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157320 


022256 
000004 
022256 
022256 


022256 
022256 
177766 


022260 
001130 


-SBTTL ERROR HANDLER ROUTINE 


SEQ 910" 


SRE REE AREER EAR EEE REE E AREER 


i*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


:*AND GO TO TYPERR ON ERROR 


Z*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE’ ‘ARE: 


2*SW15°1 HALT_ON ERROR 


7°SwW13=1 INHIBIT ERROR TYPEOUTS 

2*Swi0=1 BELL ON ERROR 

7 *SwO9=1 LOOP ON ERROR 

3 * TALL : 

:* ERROR N 372ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: cee IBSAVE 


BIT #SWO8 ,ASWR 

BEQ 7$ 

TST LPTAVL 

BEQ 7$ 

MOV LPS,$TPS 

MOV LPB,$TPB 
7$: INCB SERFLG 

BEQ 7$ 


MOV STSTNM,a@DISPLAY 
BIT ae tT lG ase 


TYPE , SBELL 
1$: INC SERTTL 
MOV (SP) , SERRPC 
SUB #2, SERRPC 
MOVB @SERRPC,SITEMS 
BIT rth ial 


BNE 100 

CMPB #177, SI1TEMB 
BEQ 1004$ 

TSTB IBSAVE 

BNE 1003$ 

CMP #~1, CPSAVE 
BEQ 1004$ 


MOV ERRVEC,-(SP) 
MOV #10008 ,ERRVEC 
MOV 177766, CPSAVE 


BR ee 
1000$: MOV CPSAVE 
Mov 0018" (SP) 
1001$: MOV (SP) +, ERRVEC 
1002$: CMP #~-1, CPSAVE 
BEQ 1 
BIT #B1T00, CPSAVE 
BEQ 1004$ 


BIC #B1T00,177766 

MOVB SITEMB, IBSAVE 

MOVB 4177, SITEMB 
1004$ 


:;CLEAR THE ITEM BYTE SAVE LOCATION 
2; TEST FOR CHANGE IN SOFT=-SwR 
:SEND ERROR MESSAGE TO TTY? 
3 YES~~BRANCH 
71S THERE A LINE PRINTER AVAILABLE? 
7NO--BRANCH 
:YES--SETUP STATUS 
3AND BUFFER REG.°S FOR LINE PRINTER 
7oSET THE ERROR FLAG 
7 DON'T LET THE FLAG GO TO ZERO 
7zDISPLAY TEST NUMBER AND ERROR FLAG 
7 sBELL ON ERROR? 

iNO - SKIP 
; RING BELL 

7 COUNT THE NUMBER OF ERRORS gi 
GET ADDRESS OF ERROR INSTRUCTION 


3sSTRIP AND SAVE THE ERROR ITEM CODE 

2éSEE IF LOOP ON ERROR IS SET 
7 «BRANCH AROUND ROUTINE IF SO 
SEE IF THIS JS THE POWER FAIL CALL 
TIBRANCH AROUND ROUTINE IF IT IS 

1 SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
sBRANCH IF SO 

S7SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
7sBRANCH IF SO 
> SAVE CONTENTS OF ERROR VECTOR 

+ SETUP *TRAP' RETURN ADDRESS 

3:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


7zS€T CPU ERROR REGISTER TIMEQUT INDICATOR 
32SETUP RETURN ADDRESS 


22RESTORE CONTENTS OF ERROR VECTOR 


+ 3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
; BRANCH IF SO 
:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

® TBRANCH IF Ok 

ce emee THE BIT FOUND SET 
; ¢ MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
7SET SITEMB TO SPECIAL POWER FAIL POINTER 
:SBRANCH OVFR IBSAVE CLEARING 
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022100 


022260 


105037 


032777 
001004 
004737 
104401 


122737 


104407 


105737 
001230 
032777 
001402 
013716 
005737 
001402 
013716 


022737 
001001 
000000 


013737 
033737 
000002 
000000 
000000 


622260 


020000 


022262 
001231 


000001 


001130 
026766 


022260 
156770 


022260 
001000 


001124 
001222 


001222 
021560 


001530 
001532 
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157042 


001254 
022146 


156746 


000042 


001164 
001166 


CLRB 


208: 


21s: 
22$: BR 


2$: 


3$: 


4$: 


5$: 


63: 


cP 
1B 


SAVE : 
SAVE: 


. WORD 
» WORD 


IBSAVE 
#B1T13,aSWR 
20$ 


PC,TYPERR 
o SCRLF 


MAPTENV,SENV 
ae ae 
PC, seu 

: 

3s 

IBSAVE 

3$ ‘ 


@SWR 
3$ 


IBSAVE 

7$ 
#B1T09,aSWR 
4$ 


$LPERR, (SP) 
SESCAPE 
5$ 


SESCAPE , (SP) 
ASENDAD , 2442 
6$ 


TPS .$TPS 
TPB, STPB 


0 
0 


SEQ 0102 


i2CLEAR IBSAVF SO 2ND TIME THROUGH EXITS 


:;SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 
3:60 TO USER ERROR ROUTINE 


7¢RUNNING IN APT MODE 

2zNO,SKIP APT ERROR REPORT 

72SET ITEM NUMBER AS ERROR NUMBER 
2 REPORT FATAL ERROR TO AFT 


7zAPT ERROR LOOP 
3¢SEE IF IBSAVE IS LOADED 
7 2BRANCH IF NOT ~ NO HALT 
2 ¢HALT ON ERROR 

7SKIP IF SERA 
HALT ON ERR 
77 TEST FOR CHANGE IN SOF T-SWR 


24 SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
7BRANCH BACK TO CALL ORIGINAL ERROR 
::LOOP ON ERROR SWITCH SET? 


:BR_IF NO 
; FUDGE RETURN FOR LOOPING 
eerie FOR AN ESCAPE ADDRESS 


+ IBR F NONE 

:: FUDGE RETURN ADDRESS FOR ESCAPE 
Zc ACT=-11 Prat an 

7 BRANCH IF NO 

iYes 

ioen iT ais AND BUFFER REG.'S 

oo et uaN. FROM ERROR CALL 


a OCATION TO SAVE CPU ERROR REG CONTENTS 
3écJCATION TO SAVE ITEM BYTE 


CN PWR MON BIT ERROR 
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-SBITL TYPERR ~ TYPE ERROR ROUTINE 


2 
3 THIS ROUTINE USES THE “ITEM CONTROL BYTE’' ($ITEMB) TO DETERMINE 
4 WHICH ERROR IS TO BE REPORTED, JT THEN OBTAINS, FROM THE "ERROR 
5 STABLE"! (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 
6 3s CONCERNING THE ERROR. 
? :CALL 
8 : JSR PC, TYPERR 
2 : RETURN 
11 022262 113737 001116 001212 TYPERR: MOVB  STSTNM,STMPO =; SAVE THE TEST NUMBER 
12 022270 104412 SAVREG ERO = RS 
13 022272 162700 000004 SUB #4,RO “FORM TEST P 
14 022276 010037 001176 MOV —-RO, SREGO “COPY ROARS IN. SREGO-SREGS 
15 022302 010137 001200 MOV —R1, SREG1 
16 022306 010237 001202 MOV —-R2, SREG2 
17 022312 010337 001204 MOV —-R3, SREG3 
18 022316 010437 001206 MOV —-R4, $REGS 
19 022322 010537 001210 MOV —-R5, SREGS 
20 622326 113700 061130 MOVB SI TEMB, RO ;PICKUP ERROR ITEM NUMBER 
21 022332 122700 000177 CMPB«#177,R0 ISEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
22 022336 001007 BNE ‘18 ;BRANCH IF NOT 
23 022340 005001 CLR RT 
27 022342 013737 001240 023040 MOV so STESTN.PFTSTN © ;GET_TEST NUMBER 
29 022350 012700 022700 MOV MPFECH,RO zMOVE POWER FAIL ERROR CALL TABLE TO RO 
30 022354 000412 BR 3$ 
31 022356 010001 1$: MOV —- ROI ;AND COPY IT INTO 1 
32 022360 905300 DEC —- RO SFORM INDEX FOR ERROR TABLE 
33 022362 106300 ASLB RO 
34 022364 106300 ASLB RO 
35 022366 106300 ASLB RO 
36 022370 103002 BCC Os «aS S ERROR > 37? 
37 022372 062700 000240 ADD FITEMG1-SERRTE,RO. ; YES=-FORM OFFSET 
38 022376 062700 002014 2$: ADD = #SERRTB,RO FORM ADDRESS 
39 022402 012037 022422 3$: MOV (RO) +, 48 “GET ERROR MESSAGE (EM) POINTER 
40 022406 001451 BEQ «9S SBRANCH IF THERE ISN'T ONE 
41 022410 004737 027216 JSR PC, INCEC INCREMENT ERROR COUNT 
42 022414 104401 001231 TYPE —_, SCALF ZCARRIAGE RETURN - LINE FEED 
43 022420 104401 TYPE 
44 022422 000000 4$: WORD 0 :EM'' POINTER GOES HERE 
45 022424 162701 000041 SUB #41, R1 SPECIAL ERROR ITEM NUMBER? 
46 022430 100440 BMI ;NO-~BRANCH 
47 022432 013701 001356 MOV —SVSTAT.R1 GET STATUS/ERROR INDICATOR 
48 022436 106301 ASLB RI P ‘DONE’ BIT (BITO7) 
49 022440 006301 ASL RT STRIP “ERROR BIT (BIT15) 
50 022442 012702 001762 MOV —- #STATBL ,R2 ;1ST ADDRESS ON STATUS MESSAGE POINTERS 
51 022446 005003 CLR RB ;CARRIAGE RETURN-LINE FEED SWITCH 
52 022450 104401 022456 TYPE —,65$ TYPE ASCIZ STRING 
022454 000402 BR 64$ SIGET OVER THE ASCIZ 
958: ASCIZ. 7 / 
022462 64$ 
53 022462 012237 022504 5$:. MOV = (R2)+,7$ ;MESSAGE POINTER 
54 022466 006301 ASL RI i TYPE THIS MESSAGE? 
55 022470 103013 Bcc OBS :NO=-BRANCH . 
56 022472 005103 COM RB SYES--TYPE A ‘CR & “LF'? 
57 022474 001002 BNE 6 NO=-BRANCH 


58 022476 104401 001231 TYPE oSCRLF “YES 
‘ 
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59 022502 
60 022504 


022526 
022532 


105 022674 
106 022676 
107 022700 
108 022710 
109 022772 


104401 


000401. 


012037 
001404 
104401 


000402 
013146 


050345 


022530 


022546 
001231 


001231 


050345 


001231 


050345 
022654 


001231 
050345 


022772 
117 
105 
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6$: 
7$: 
8$: 


3678: 
268 


—— 
9S 
AW 


12$: 
138: 


148: 


15$: 


168: 


17$: 
188: 


19$: 
20$: 


023024 PFECH: 
127 PFECHI: 


123 PFECH2: 


TYPE 
.WORD 0 
IST R1 
BEQ 
TYPE BLNKS2 
BR §$ 
BNE S$ 
TYPE ‘67S 
BR 66$ 
SASCIZ /)/ 
MOV (RO) +, 10$ 
BEQ 11$ 
TYPE /SCRLF 
TYPE 
.WORD 0 
MOV (RO) +,R1 
BEQ 20$ 
CLR RS 
MOV (RO) +,RO 
MOV (RO) +,R2 
BEQ 19$ - 
COM RS. 
TYPE ,SCRLF 
MOVB = (RO) +,R3 
MOVB (20) +. R4 
ROR R4 
BCS 14$ 
MOV a(R1)+,-(SP) 
TYPOC 
15$ 
Vv a(R1)+,-(SP) 
TYPDS 
DEC R3 
BEQ 16$ 
TYPE /BLNKS2 
13$ 
DEC R2 ‘ 
BLE 208 
TYPE S$CRLF 
COM R5 
BNE 17$ 
TYPE /BLNKS2 
MOV (RO) +, 18$ 
TYPE 
.WORD 0 
TYPE S$CRLF 
TST RS 
BNE 12$ 
TYPE ,BLNKS2 
BR j12$ 
RESREG 
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SFQ 0104 


MESSAGE POINTER GOES HERE 
sMORE TO TYPE? 

7NO--BRANCH 

i TYPE 2 SPACES 


LOOP 

:BRANCH IF NOT FINISHED 
sc TYPE ASCIZ STRING 
:7GET OVER THE ASCIZ 


PICK ‘JP DATA HEADER (DH) POINTER 
;BRANtn IF NONE 
CARRIAGE RETURN-LINE FEED 


:''DH'' POINTER GOES HERE 

PICKUP DATA TABLE (DT) POINTER 
:BRANCH IF NONE 

SET INDENT SWITCH 

:DATA FORMAT (DF) POINTER 
NUMBER OF DH'S 10 TYPE 

BRANCH IF DH NUMBER IS 0 

ZNO INDENT 

CARRIAGE RETURN-LINE FEED 
NUMBER OF DATA WORDS TO TYPE 
:AND HOW TO TYPE THEM 

:OCTAL OR DECIMAL? 
:DECIMAL~-BRANCH 

>:SAVE a(R1)+ FOR TYPEOUT 

:2GO TYPE~-OCTAL ASCIICALL DIGITS) 


:zSAVE a(R1)+ FOR TYPEOUT 
22G0 TYPE--DECIMAL ASCII WITH SIGN 
3MORE NUMBERS TO TYPE? 


7 NO--BRANCH 
Apia 2 SPACES 
; LOOP 
‘MORE DH'S? 
=NO--BRANCH 
SYES--START A NEW LINE 
* INDENT? 
:NO~—BRANCH 
; TYPE 2 SPACES 
:GET NEXT DH 
sAND TYPE IT 
:DH POINTER GOES HERE 
CARRIAGE RETURN-LINE FEED 
7 INDENT? 
:NO--BRANCH 
: TYPE 2 SPACES 


LOOP 
RESTORE RO - RS 
RN 


PC RETU 
RFECHT, PFECH2,PFECH3,PFECH4 :WORDS DEFINING TABLES BELOW 


-ASCIZ 
eASCIZ 


POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
?TESTNO ERR PC 


CPUERREG? 


TS SS 


89 
7RMYBO RMOS/3/2 EXT'D OR TS? MACRO v¥04.00 4-APR-81 11:57:12 PAGE 19-2 
"yPERR = TYPE ERROR ROUTINE 


“19 -EVEN 

"17 023024 023060 (01132 022256 PFECH3: .WORD hE TSTN, SERRPC,CPSAVE,0 

**2 023034 000001 PFECHS: .WORD 1 NUMBER OF DATA HEADERS 

*13 623036 003 BYTE 3 ;NUMBER OF WORDS IN DATA TABLE 

16 023037 009 -BYTe 0 ZALL 3 NUMBERS ARE OCTAL 

11§ 02306C 000000 PFTSTN: .WORD 0 CONTAINS TEST NUMBER FOR PF BT FRROR 


9 
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TYPE ROUTINE SEQ 0166 


1 -SBI(L TYPE ROUTINE 


SRR RR AERA ARERR ETRE EERE NTE T RENEE ROTO ENTREE NETH RENO HERE EEE 
b*ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


S*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
t*NOTE2: $F ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
>*CALL 
ie) USING A TRAP INSTRUCTION 
ror TYPE »ME SADR ZzMESADR JS FIRST ADDRESS UF AN ASCIZ STRING 
: TYPE 
a ME SADR 
023062 105737 001173 $TYPE: TSTB STPFLG eis THERE A TERMINAL? 
023046 100002 BPL 1$ IBR IF YES 
C23050 000000 HALT 7HALT HERE IF NO TERMINAL 
023052 000430 BR 3$ : TLEAVE 
023054 010046 1$: MOV RO,-(SP) ZSAVE RO 
023056 017600 000002 MOV a2(SP),RO +:GET ADDRESS OF ASCIZ STRING 
923062 122737 000001 001254 CMPB W#APTENV, SENV :;RUNNING IN APT MODE 
023070 001011 BNE 62$ 7NO,GO CHECK FOR ner {CONSOLE 
023072 122737 000100 00:255 BITB W#APTSPOOL , SENVM £3 SPOOL MESSAGE TO AP 
023100 001405 BEQ 62$ NO,GO CHECK FOR CONSOLE 
023102 010037 023112 MOV RO,61$ SSSETUP MESSAGE ADDRESS FOR AP 
023106 004737 026756 JSR PC. SATY3 :2SPOOL MESSAGE TO APT 
023112 000000 618: .WORD 0 sMESSAGE ADDRESS 
023114 132737 000040 901255 62%: BITB MAPTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
| 023122 001003 BNE 60$ 2 YES,SKIP TYPE OUT 
023124 112046 2s: MOVB (RO) +,-(SP) :ZPUSH CHARACTER TO BE TYPED ONTO STACK 
023126 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
023130 005726 TST (SP) + zc 1F TERMINATOR POP IT OFF THE STACK 
023132 012600 40$: MOV (SP) +,RO 7 RESTORE RO 
023134 062716 000002 3¢: ADD #2, (SP) > ADJUST RETURN PC 
023149 000002 RTI 7 RETURN 
023142 122716 000011 4$: CMPR WHT, (SP) + :BRANCH IF <HT> 
023146 001430 BEQ 8$ 
023150 122716 000200 CMPB MCRLF , (SP) > BRANCH IF NOT <CRLF> 
023154 001006 BNE 5$ 
023156 005726 TST (SP)+¢ :zPOP  <CR><LF> EQUIV 
023160 104401 TYPE 7: TYPE A CR AND LF 
* 023762 + 001231 $CRLF 
023164 105037 023372 CLRA SCHARCNT ri CLEAR CHARACTER COUNT 
023170 000755 BR 2$ >:GET NEXT CHARACTER 
023172 004737 023254 5$: JSR PC .$TYPEC ::G0 TYPE THIS CHARACTER 
023176 123726 001172 6$: CMPB SFILLC,(SP)+ ‘IS IT TIME FOR FILLER CHARS .? 
023202 001350 BNE 2s se1F NO GO GET NEXT CHA 
023206 013746 001170 MOV $NULL ,~ (SP? :GET # OF FILLER CHARS. “NEEDED 
':AND THE NULL CHAR, 
023210 105366 000001 7$: DECB 1(SP) :.DOES A NULL NEED TO BE TYPED? 
023214 062770 BLT 6$ “BR IF NO--GO POP THE NULL OFF OF STACK 
023216 004737 023254 JSR PC ,$TYPEC *:GO0 TYPE A NULL 
023222 105337 023372 DECB SCHARCNT ::DO NOT COUNT AS A COUNT 
023226 000770 BR 7$ 7: LOOP : 
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023230 


023374 


112716 


000724 


105777 
100022 
017746 
042716 
122716 
001012 


105777 


122716 
001366 


005726 
105777 


000040 
023254 


000007 023372 


155700 
155674 
177600 
000023 
155654 
155650 


177600 
000021 


155632 


000002 
000015 


023372 
000012 000002 


155624 
000002 


sHORIZONTAL 


8$: MOVA 
9$: JSR 
BITB 


$TYPEC: 


101$: 


102$: 
10$: 


1$: 


SCHARCNT: 
$TYPEX: RTS 


B 
» WORD 


D 
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TAB PROCESSOR 


w#’ (SP) 
PC, S$TYPEC 


#7, SCHARCNT 
9$ 

(SP) + 

2s 


asTKs 

10$ 
a$TKB,-(SP) 
#177600, (SP) 
ASXOFF , (SP) 
102$ 


a$TKB, (SP) 
#177600, (SP) 
MSXON, (SP) 
101$ 

(SP)+ 

a$TPS 


10$ 
2(SP) ,a$TPB 
aL RaeKSP? 


ALF .2(SP) 
STYPEX 
(PC) + 


PC 


oO 


9 
20-1 


ZEREPLACE TAB WITH SPACE 
scTYPE A SPACE 

3¢BRANCH IF NOT AT 

7iTAB STOP 

:3POP SPACE OFF STACK 
7i:GET NEXT CHARACTER 


CHAR IN KYBD BUFFER? 
“BR If NOT 

33GET CHAR 

SZSTRIP EXTRANEOUS BITS 
SaWAS CHAR XOFF 

22BR IF NOT 


7:WAIT FOR CHAR 


3:zGET CHAR 
ZzSTRIP IT 
72WAS IT XON? 
73BR IF NOT 


scFIX STACK 
7ZWAIT UNTIL PRINTER IS READY 


7¢LOAD CHAR TO BE TYPED INTO DATA REG. 
21S CHARACTER A CARRIAGE RETURN? 

7 BRANCH IF NO 

a CHARACTER CCUNT 

2¢1S CHARACTER A LINE FEED? 

7 =BRANCH IF YES 

377 COUNT THE CHARACTER 

2; CHARACTER COUNT STORAGE 
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BINARY TO OCTAL (ASCII) AND TYPE 


023376 


023540 


017646 
116627 
112637 


005204 


ere tee an a 


00C000 
000001 
023623 
000902 
000001 


000006 
000005 


023623 
000006 


000012 


023622 
177770 
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023621 


023621 
023623 
023620 


SEQ 0108 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


LUMAR R RENEE RENAE RENE RNR E NAOT NET e Ree Nene eee TET 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

p*STYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


S*CALL: 


if MOV NUM ,- (SP) :7NUMSER TO BE TYPED 

Pikes TYPOS 37CAcL FOR TYPEOUT 

7* BYTE N 3iN=1 TO G FOR NUMBER OF DIGITS TO TYPE 
:* -BYTE M 7 7M=1 UR 0 

-* 22 1=TYPE LEADING ZEROS 

os 720=SUPPRESS LEADING ZEROS 

*® 


S*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i*STYPOS OR S$TYPOC 


r*CALL: 
7* 
it 


MOV 


TYPON 


NUM, ~(SP) 


7 NUMBER TO BE TYPED 
3sCALL FOR TYPEOUT 


® 
E*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


¢*CALL: 
ct MOV NUM, = (SP) 7 NUMBER TO BE TYPED 
:* TYPOC 2 CALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) :cPICKUP THE MODE 
MOVB 1(SP) ,SOF ILL ZzLOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 .:NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) ZZ ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPO(: MOVB #1 SOF ILL ZiSET THE ZERO FILL SWITCH 
MOVB #6, S0MODE +1 ZiSET FOR SIX(6) DIGITS 
STYPON: MOVB #5,S0CNT ::SET THE ITERATION COUNT 
MOV R3,-(SP) :: SAVE R3 
MOV R4,-(SP) Zr SAVE R4 
MOV Q5,~(SP) 22 SAVE R5 
ee SOE SBS :iGEY THE NUMBER OF DIGITS TO TYPE 
Ni F 
ADD #6 ,R4 > SUBTRACT IT FOR MAX. ALLOWED 
MOVB RS, SOMODE : SAVE IT FOR USE 
MOVB SOF ILL RS 2iGET THE ZERO FILL SWITCH 
MOV 12(SP) ,R5 7iPICKUP THE INPUT NUMBER 
CLR R3 :7 CLEAR THE OUTPUT WORD . 
1$: ROL R5 ROTATE MB INTO ‘'C'' 
: BR 3$ 32:66 DO MSB 
2$: ROL RS :2FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5.R3 
3$: ROL R3 ::GEY LSB OF THIS DIGIT 
DECB SOMODE zi TYPE THIS DIGiT? 
BPL 7$ 77BR IF NO 
BIC #177770,R3 :iGET RID OF JUNK 
BNE 4$ zi: TEST FOR QO 
TST RS 77 SUPPRESS THIS 0? 
BEQ 5$ ss IF YES 
4$: INC R4 : DON'T SUPPRESS ANYMORE O'S 


“ZRMYBO RMOS/ 3/2 EXT'D 
(ASCII) AND TYPE 


BINARY "0 OCTAL 
023542 


C52703 


OR TST 


000060 
600040 
023616 
023016 
023620 


000002 000004 


5$: 


7$: 


6$: 


8$: 
SOCNT: 


$OF Ibu: 
SOMODE : 


MACHO V04.00 4-APR-8 


"BYTE 
[WORD 
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7 sMAKE THIS DIGIT ASCII 

MAKE ASCII IF NOP ALREADY 

'SAVE FOR TYPING 

3:GO TYPE THIS DIGIT 

: COUNT BY 1 

:7BR IF MORE TO DO 

77BR IF DONE 

: INSURE LAST DIGIT ISN°T A BLANK 
GO DO TNE LAST DIGIT 


E 
72SET THE STACK FOR RETURNING 


¢ sRETURN 

ZeSTORAGE FOR ASCII DIGIT 

77 TERMINATOR FOR TYPE ROUTINE 
SI0CTAL DIGIT COUNTER 

séZERO FILL SWITCH 

cENUMBER OF DIGITS [O TYPE 


CT RMVBO RMOS/3/2 EXT'D 
ONVERT BINARY 70 DECIMAL AND TYPE ROUTINE 


023624 


019046 


012601 


DR TST 


020200 
0C0020 
000055 


024040 
000040 


024030 


000001 
000060 
000040 


000010 


177777 


MACRO yu4.00 4=APR-B1 1° 


.SBTTL 


. 
oe 


CONVERT BINARY TO DECIMAL 
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AND TYPE ROUTINE 


 RRARRARRARRKREREREHREREHERARKRHERERKREREEREEKRaEHRERERHhKaeE heehee hehatene 


:*THIS ROUTINE IS USED TO CHANGE A 16-BI1T BINARY NUMBER TO A 5-DIGIT 


s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. 
7 *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL 
3*BEFORE THE FIRST DIGI” OF THE NUMBER. 


s*REPLACED WITH 

s*CALL: 

:* MOV 
TYPDS 


$TYPDS: 


000001 
1$: CLR 


2s: CLR 


3$: SuB 


4$: ADD 


S$: ASLB 
177777 
7$: BIS 


8$: TSTB 


177776 
9$: CLRB 


SPACES. 
NUM, = (SP) 


RO,~(SP) 
R1,-(SP) 
R2,~-(SP) 
R3,-(SP) 
R5,~-(SP) 
#20200,-(SP) 
eure? 


R5 
#'=,10SP) 


R 
A#SDBLK,R3 
# J(RS)+ 


R2 

$DTBL (RO) ,R1 
R1,R5 

4$ 
R2 
3$ 

R1,R5 

R2 

5$ 

(SP) 

7$ 

(SP) 

6 

1(SP) ,-1(R3) 
#'0,Re 

#* ,R2 
R2,(R3)+ 
(RO) + 

RG.410 

2$ 

8$ 

RS ,R2 

6$ 

(SP) + 

9$ 

-1(SP) ,-2(R3) 
(R3) 

(SP)+,R5 

(SP) +,R3 


(SP) + ,R2 
(SP)+,R1 


DEPENDING ON WHETHER THE 
BE TYPED 
LEADING ZEROS WILi ALWAYS BE 


; PUT THE BINARY NUMBER ON THE STACK 
2iGO TO THE ROUTINE 


3¢PUSH RO ON STACK 
:2PUSH R1 ON STACK 
77;PUSH R2 ON STACK 
:7PUSH R3 ON STACK 
2¢PUSH R25 ON STACK 
77 SET BLANK SWITCH AND SIGN 
+ 2GET THE INPUT NUMBER 
:BR IF INPUT IS POS. 
+ MAKE THE BINARY NUMBER POS. 
7 MAKE THE ASCII NUMBER NEG. 
27ZERO THE CONSTANTS INDEX 
:zSETUP THE OUTPUT POINTER 
77 SET THE FIRST CHARACTER TO A BLANK 
:c¢CLFAR THE BCD NUMBER 
:i:GET THE CONSTANT r 
7cFORM THIS BCD DIGIT 


$3 IF DONE 
cc INCREASE THE 8CD DIGIT By -1 


73ADD BACK THE CONSTANT 
7sCHECK IF BCD DIGIT-0 
2 FALL THROUGH IF 0 
STILL DOING LEADING 0°S? 
:3BR IF YES 
73MSD? 
:3:BR IF NO 
72eYES--SET THE SIGN 
3sMAKE THE BCD DIGIT ASCII 
73MAKE IT A SPACE IF NOT ALREADY A DIGIT 
33PUT_THIS CHARACTE® IN THE QUTPUT BUFFER 
33JUST INCREMENT ING 
72CHECK THE TABLE INDEX 
3:GO DO THE NEXT DIGIT 
3:G0 TO EXIT 
22GET THE LSD 
3G9 CHANGE TO ASCII 
T:WAS THE LSD THE FIRST NON-ZERO? 
3;BR IF NO 


i :YES-—SET THE SIGN FOR TYPING 
3SET THE TERMINATOR 
:POP STACK INTO R5 
sPOP STACK INTO R3 
POP STACK INTO Re 
‘pop STACK INTO RI 


EG! 


« ZRMYBC RMOQS/3/2 EXT'D DR TST 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
024010 012600 


024034 900144 
024036 000012 


ee ee. 


624040 
000002 000004 


$DTRL: 


$DBLK: 


BLKW 
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(SP) +, RC :7POP STACK INTO RO 
$DAL Kk scNOW TYPE ThE NUMRER 
S(SP) ,4(SP) SSADJUST THE STACK 
(SP) +, (SP) 


7ZRETURN TO USER 


SEQ 01°" 


CZRMVBO RMO5/3/2 EXT*’D DR TST 
TTY INPUT ROUTINE 


925050 


024056 


024126 


! 
024130 
0245134 


024212 
| 024214 


| 024224 


000000 
000000 
000000 
024057 


005037 
012737 
013737 
012737 


000207 


117746 
042716 
021627 
001002 
005726 
000002 


021627 


001500 


022737 
001904 
104401 


024050 


000100 


155026 
177600 
000021 


000003 


025272 
024060 


025334 
000007 


000176 


000001 
007224 
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024052 
024054 
000060 
000062 


155032 


001154 


024050 


SEQ O11, 
~SBTTL TTY INPUT ROUTINE 


PT AUTAAAAHERAREAAAAARARETERERERRARARHRARARRKHRHERHHHESHEEENAH ee sane 


-ENABL LSB 


$TKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
STKOIN: .WORD 0 INPUT POINTER 

$TKQOUT: .WORD 0 ::QUTPLT POINTER 

STKOSRT: -BLKB 1 SETTY KEYBOARD QUEUE 
STKQEND=. 

EVEN 


2*TK INITIALIZE ROUTINE 
*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
3*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


ceCALL: 
:* JSR PC, STKINT 
cf RE TURN : 
STIKINT: CLR STKCNT ZCLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKQSRT,STKOIN MOVE THE STARTING ADDRESS OF THE 
MOV STKQIN, $TKQOUT +s QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV WSTKSRV QATKVEC : s INITIALIZE THE KEYBOARD VECTOR 
MOV #200 ,a@ATKVEC +2 i: “BR'’ LEVEL 4 
TST a$TKB 2eCLEAR DONE FLAG 
MOV #100, a$TKS 7 ZENABLE TTY KEYBOARD INTERRUPT 
RTS PC 7ZRETURN TO CALLER 
z*TK SERVICE ROUTINE 
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*1T IN THE QUEUE. 
:eJF THE CHARACTER IS A ‘‘CONTROL-C’' (*C) STKINT IS CALLED AND 
:*sUPON RETURN EXIT IS MADE TO THE ‘‘CONTROL~C‘* RESTART ADDRESS (SHUT) 
$TKSRV: MOVB a$TKB,~-(SP) 72PICKUP THE CHARACTER 
BIC #0177, (SP) *°STRIP THE JUNK 
CMP (SP) , 4$X0N 7321S IT A RANDOM XON? 
BNE 30$ 7 ;BRANCH IF NO 
TST (SP) + 37 CLEAN RANDOM XON OFF STACK 
RT] 7cRETURN 
30$: 
CMP (SP) 43 :21S IT A CONTROL C? 
BNE 1$ 7 BRANCH IF NO 
TYPE ,SCNTLC 7c TYPE A CONTROL-C <«*0) 
JSR PC,STKINT rc INIT THE KEYBOARD 
TST (SP) + 7 CLEAN UP STACK 
JMP SPUT 3 CONTROL C RESTART 
1§: CMP (SP) #7 ::1S IT A CONTROL G? 
BNE 2$ 7: BRANCH IF NO 
CMP ASWREG, SWR trIS SOFT-SWR SELECTED? 
BEQ 6$ :.GO TO SWR CHANGE 
CMP #1 ,$TKCNT sc1S THE QUEUE FULL? 
BNE Fy BRANCH IF NO 


TYPE , SBELL Z3RING THE TTY BELL 


<ZRMVBO RMO5S/3/2 EXT'D DR TST 
TTY INPUT ROUTINE 
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SEQ 0113 


024230 005726 1ST (SP)+ JiCLEAN CHARACTER OFF OF STACK 
024232 000451 BR 5$ XIT 
024234 021627 000023 3$: CMP (SP) #23 {T1811 A CONTROL-S? 
024240 001021 BNE 32$ ::BRANCH IF NO 
024242 005077 154712 CLR aSTKS i:DISABLE TTY KEYBOARD INTERRUPTS 
024246 005726 TST (SP) + TECLEAN CHAR OFF STACK 
024250 105/77 154704 31$: STB  a$IKS SiWAIT FOR A CHAR 
024254 100375 BPL 31$ SLOOP UNTIL ITS THERE 
0246256 117746 154700 MOVB = a$TKB, -(SP) iiGET THE CHARACTER 
024262 042716 177600 BIC #92177, (SP) MAKE IT 7-BIT ASCII 
024266 022627 000021 CMP (SP) +,#21 7i1S IT & CONTROL~0? 
024272 001366 BNE 31$ : TBRANCH IF NO 
024274 912777 000100 154656 MOV #100, a$TkS REENABLE TTY KEYBOARD !NTERRUPTS 
924302 000002 RTI : ;RETURN 
924304 005237 024050 32$: INC STKCNT SECOUNT THIS CHARACTER 
924310 021627 000150 CMP (SP) ,#140 :z1S IT UPPER CASE? 
024314 002405 BLT 4 > BRANCH IF YES 
024316 021627 000175 CMP (SP) #175 iis IT A SPECIAL CHAR? 
024322 003002 BGT 4$ CH_IF YES 
624324 042716 0C0040 BIC 440, (SP) ;MAKE IT UPPER CASE 
024330 112677 177516 4$: MOVB (SP) +, aSTKQIN $ ZAND PUT _IT IN QUEUE 
024334 005237 024052 INC STKQIN [UPDATE THE POINTER 
024340 023727 024052 024057 CMP STKQIN,#STKQEND 3;GO OFF THE END? 
024346 001003 BNE 5$ ;BRANCH IF NO 
024350 012737 024056 024052 MOV WSTKQSRT,STKQIN ;:RESET THE POINTER 
924356 000002 5$: RTI : RETURN 
Pettitt te Ceti titi tit tttitit ett titi ttt 
TSSOF TWARE’ SWITCH REGISTER CHANGE ROUTINE. 
>*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
"SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTFR TRAP 
>*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
026360 022737 000176 001154 $CKSWR: CMP WSWREG, SUR ss1S THE SOFT~Swa SELECTED 
024366 001124 BNE «15 Z:EXIT IF NOT 
02437C 105777 154564 TST aS TKS TIS A CHAR WAITING? 
024374 100121 BPL . 15$ T31F NOT, EXIT 
024376 117746 154560 MOVB = a$TKB,-(SP) ZIYES 
024402 042716 177600 BIC #70177, (SP) TIMAKE IT 7-BIT ASCII 
024406 021627 000007 CMP (SP) TIS IT A CONTROL-G? 
024412 001300 BNE 2$ iETF NOT. PUT IT IN THE TTY QUEUE 
x 
RA AAARAAAAAEARAARARRAREREREAARARARAAARAARAEARAEEAAEKERREREETKKR AEE 
“CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
"ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
;#CONTROL~G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
024414 123727 001150 000001 és: CMPB ss $AUTOB, #1 :;ARE WE RUNNING IN AUTO-MODE ? 
024422 001674 BEQ 2$ BRANCH IF YES 
024424 005726 TST (SP) + SCLEAR CONTROL~G OFF STACK 
024426 004737 024060 JSR PC, STKINT SIFLUSH THE TTY INPUT QUEUE 
024432 005077 154522 CLR a$tks TIDISABLE TTY KEYBOARD INTERRUPTS 
024436 112737 000001 001151 MOVB = #1, SINTAG :ISET INTERRUPT MODE INDICATOR 
924444 104401 025304 TYPE —_, SCNTLG ;:ECHO’ THE CONTROL-G (*G) 
024450 104401 025311 $GTSWR: TYPE | $MSWR SETYPE CURRENT CONTENTS 
024454 013746 000176 MOV SWREG,- (SP) ZESAVE SWREG FOR TYPEQUT 
024460 104402 TYPOC 2iGO TYPE--OCTAL ASCIT(ALL DIGITS) 


CZ7RMVBO RMO05/3/2 EXT'D DR TST 


TTY INPUT ROUTINE 
024462 Aoeeee 
100375 


117746 
042716 


021627 


024476 


024500 
024504 


024510 


024544 000137 


021627 
001005 
104401 
062706 
000737 


024554 
024556 
024562 
024566 


024570 
024574 
| 


| 624550 


021627 


024720 


ne ee 


025322 
154462 
154456 
177600 
000003 
025272 
000006 
001151 
000° 00 
025334 
000025 


025277 
000006 


000015 
000004 
000002 

: 


001981 
000100 


023254 
000060 


000067 


000060 
000002 


000002 
177776 


001230 
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000001 
154414 


154342 


000001 
154320 


TYPE 
19$: CLR 

CLR 
7$: TSTB 

BPL 


MOVB 
BIC 


CMP 
BNE 
TYPE 
ADD 
CMPB 
BNE 
MOV 
8$: JMP 


9$: CMP 
BNE 
TYPE 

20$: ADD 
BR 


10$: cme 
BNE 


15$: RTI 
16$: JSR 


17$: INC 


18$: TYPE 
BR 
-DSABL LSB 


» SMNEW 
-(SP) 

-(SP) 

asTKs 

7$ 


@$TKB,-(SP) 
#°C177, (SP) 
(S?) #3 

9$ 

/$CNTIC 

#6, SP 
SINTAG, #1 
8$ 

#100, a$TKS 
SHUT 


(SP) 425 
10$ 
»$CNTLU 
#6,SP 

19$ 

(SP) ,415 
16$ 

4(SP) 

11$ 

2(SP) ,aSwR 
#6,SP 
~SCRLF 
SINTAG,#1 
15$ 

#100, a$TKS 


PC ,STYPEC 
tect? 


8$ 
(SP) ,#67 
18$ 
#60, (SP) + 


2(SP) 

2 (SP), (SP) 
7$ 

2 $QUES 

20$ 


SEQ 0114 


7 ¢PROMPT FOR NEW SWR 
:;CLEAR COUNTER 

Zi THE NEW SWR 

:;CHAR THERE? 

:21F NOT TRY AGAIN 


3sPICK UP CHAR 
SeMAKE IT 7-81T ASCII 


3718 IT A CONTROL=-C? 

; -BRANCH IF NOT 

:<YES, ECHO CONTROL-C (“C) 

;2CLEAN UP STACK 

7 sREENABLE TTY KEYBOARD INTERRUPTS? 
3;BRANCH IF NO 

7-ALLOW TTY KEYBOARD INTERRUPTS 
;:CONTROL-C RESTART 


3201S IT A CONTROL -U? 

2 ;BRANCH IF NOT 

22YES, ECHO CONTROL-U (*U) 
2:2 1SNORE PREVIOUS INPUT 
:czLET'S TRY IT AGAIN 


zIS IT A <CR>? 
«BRANCH IF NO 
72 YES, IS IT THE FIRST CHAR? 
BRANCH IF YES 
i? SAVE NEW SWR 
:CLEAR UP STACK 
: ECHO <CR> AND <LF> 
t: RE-ENABLE TTY KBD INTERRUPTS? 


: NOT 
_ZRE-ENABLE TTY KBD INTERRUPTS 


BRANCH IF YES 


CH IF YES 
:ESTRIP-OFF_A ASCI1 
:IS THIS THE FIRST CHAR 
* BRANCH IF YES 
: NO, SHIFT PRESENT 
ie CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 
> :KEEP COUNT OF CHAR 
: SET IN NEW CHAR 
:7GET THE NEXT ONE 
>: TYPE ?<CR><LF> 
sc SIMULATE CONTROL-U 


RRR EE RAAT RRARERARERAT AER AKAREREREERARHEHEERERHEKREKERKR AREER EDS 
on 


CZ7RMVBO RMOS/3/2 EXT’D DR TST 
TTY INPUT ROUTINE 


024722 
024724 
024732 
024736 
024740 
024744 
024746 
024746 
024752 
024754 
024760 
024766 
624772 
025000 
025002 
025010 


025012 
025014 
025016 
025022 


025132 


011646 


000002 


005737 
001775 
005337 


010346 


001003 


000004 
000004 


024746 


024050 
024050 
177070 
024054 
024054 


024056 


025246 
025272 


060177 


000134 
025244 
177777 
025246 


025244 
025244 


600134 
025244 


000025 
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it 
ve 
e 
oe 
e 


SRDCHR: 


000002 


000004 
024057 


024054 
2$: 


RDCHR 
RETURN HERE 


RTI 


(SP) ,=(SP) 
4( $P) ~o(SP 
4(3P 

*¢3p) 
#64$,-(5P) 


STKCNT 
1$ 


$TKCNT 
et ue 4 (SP) 


STK 


SEQ 0115 


seTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
ZiGET A CHARACTER FROM THE QUEUE 


;¢CHARACTER IS ON THe STACK 
iiWITH PARITY BIT STRIPPED CFF 


: ;PUSH, DOWN THE PC AND 
GET READY FOR A CHARACTER 
“IPUT NEW PS ON STACK 

“PUT NEW PC ON STACK 
POP NEW PC AND PS 


7zWAIT ON A CHARACTER 
et ie ae THE COUNTER 


T ONE CHARACTER 
DATE THE POINTER 


KQOUT UP 
$TKQOUT .#STKQEND pele its GO OFF OF THE END? 


2$ 3 IF NO 
#STKOSRT.STKQOUT Pasay THE POINTER 


8 RARER RARER ARERENHETEAKEERERAAKEAEREKEEAEERAHEEAEEHEREREKHER EEE 


S*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


sSCALL: 


025244 


6$: 


5$: 
025244 


7$: 


RDLIN 
RETURN HERE 


: MOV 


R3,-(SP) 
-(SP) 
MSTTYIN.R3 


#STTYINe20. .R3 


4$ 


(SP) +, (R3) 
#177, (R3) 


5$ 
(SP) 
6$ 
#'\,9$ 
ebetk 
R3,ASTTYIN 
4$ 
(R3) ,9$ 
.9$ 
es 
(SP) 
7$ 
ANI 

$ 


(SP) 
#25, (R3) 
8$ 


72 INPUT A STRING FROM THE TTY 
ZzADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
SITERMINATOR WILL BE A BYTE OF ALL 0'S 


2 SAVE R3 
Z:CLEAR THE RUBOUT KEY 
:7GET ADDRESS 
2 ;BUFFER FULL? 
::BR IF YES 
7GO READ ONE CHARACTER FROM THE TTY 
SIGET CHARACTER 
2315 IT A RUBOUT 


7BR IF NO 

2315 THIS THE FIRST RUBOUT? 
7BR IF NO 

7: TYPE A BACK SLASH 


32SET THE RUBOUT KEY 
ZBACKUP BY ONE 
za LAG EMPTY? 


ee ;BR_IF YES 
eae Goer TYPEOUT THE DELETED CHAR. 


$360 READ ANOTHER CHAR. 
:;RUBOUT KEY SET? 
‘FBR IF NO 
TYPE A BACK SLASH 


CLEAR THE alae: KEY 
:]S CHARACTER A CTRL U? 
: BR IF NO 


CZPMVBO RMO5/3/2 EXT'D DR TST 
TTY INPUT ROUTINE 


025134 


025322 


025334 
025340 
025342 
025346 
7 025352 


AMNESWH 


104401 
000726 
122713 
001011 
105013 


005737 
001002 
000137 
005037 
000137 


025277 
000022 
001231 
025246 
001230 
025244 
025244 
000015 


177777 
001232 


000004 
025246 


000042 


004712 
001330 
021334 
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TYPE SCNTLU zi TYPE A CONTROL ‘'U"' 
8R 1$ ::GO START OVER 
8$: CMPB #22, (R3) cil CHARACTER A ‘*R’ ? 
BNE 3$ :BRANCH IF NO 
CLRB (R3) CLEAR THE CHARACTER 
TYPE ~SCRLF fiTYPE A ‘'CR'' R® ‘LFS 
TYPE JSTTYIN :cTYPE THE INPUT STRING 
8R es 3:60 ee ve ANOTHER CHACTER 
4$: TYPE , SQUES TYPE A 
BR 1$ : CLEAR tHe BUFFER AND LOOP 
3$: Pune (R3) ,9$ + ECHO THE CHARACTER 
CMPB #15,(R3)+ 37 CHECK FOR RETUSN 
BNE 2$ :zL00P IF NOT RETURN 
CLRB -1(R3) Z¢CLEAR RETURN (THE 15) 
TYPE $lF c7TYPE A LINE FEED 
TST (SP) +, :zCLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 RESTORE R3 
MOV (SP) ,- (SP) Sz ADJUST THE STACK AND PUT ADDRESS OF THE 
000002 MOV 4(SP) ,2¢(SP) as FIRST ASCII CHARACTER ON IT 
000004 MOV ASTTYIN,4(SP) 
RTI 7ZRETURN 
9$: BYTE 0 ZZ STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE O 32 TERMINATOR 
$TTYIN: .BLKB 20. : sRESERVE 20;, BYTES FOR TTY INPUT 
615 $CNTLC: .ASCIZ /*C€/<15><12> - CONTROL 
Q15  $CNTLU: .ASCIZ /*U/<15><12> == CONTROL yt 
015 $CNTLG: .ASCIZ /*G/<15><12> : CONTROL ‘'G’’ 
123 SMSWR: .ASCIZ <15><12>/SWR = / 
116 SMNEW: .ASCIZ / NEW = / 
EVEN 
SHUT TST aie ZANY MONITOR PRESENT ? 
BNE 1$ TBR IF YES 
JMP START2 :GO TO ‘START2° 
1$ CIR DRVSEL FUDGE NO DRIVES SELECTED 
JMP $EOP * RETURN CONTROL TO MONITOR 
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SCOPE HANDLER ROUTINE SEQ 0117 


1 .SBTTL SCOPE HANDLER ROUTINE 


SII SISISISISISISIDISIDIDIDIOISIOIIOIOIOIIUIDIDIIIIINIOIIIIIDISIDISISIIIIIOISIIUIIOIOIOIDIDIIOIOIDIDIDIDIDIDINIDIOE 
S*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
| Z*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


2 *SW14=1 LOOP ON TEST 
seSW11=1 INHIBIT ITERATIONS 
2*SWO9=1 LOOP ON ERROR 

3 *CALL 

3” SCOPE :SCOPE=I0OT 


025356 $SCOPE: 

025356 104407 CKSWR 3eTEST OR CHANGE IN SOF I-SWR 
025360 032777 040000 153566 1$: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 

025366 001402 BEQ 9$ 32NO IF SwW14=0. 

025370 000137 025740 JMP SOVER 2. JUMP OVER SCOPE ROUTINE 


025374 9$: 
sAAAAASTART OF CODE FOR THE XOR TESTERMHAAA 
025374 000416 $xXTSTR: BR 6$ 3 IF RUNNING ON THE "‘XOR’’ TESTER CHANGE 
<< THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
025376 013746 000004 MOV QYERRVEC,-(SP) =:SAVE THE CONTENTS OF THE ERROR VECTOR 
025402 012737 025422 000004 MOV A5$,QMERRVEC  ::SET FOR TIMEOUT 
025410 005737 177060 TST a¥177060 °: TIME OUT ON XOR? 
025414 012637 000004 MOV (SP)+,@MERRVEC ::RESTORE THE ERROR VECTOR 
025420 000531 BR $SVLAD ':GO TO THE NEXT TEST 
025422 022626 5$: CMP (SP) +, (SP)+ 7:CLEAR THE STACK AFTER A TIME OUT 
025424 012637 000004 MOV (SP)+,a#ERRVEC RESTORE THE ERROR VECTOR 
025430 000474 BR 7$ LOOP ON THE PRESENT TEST 
025432 6$::AA#AAEND OF CODE FOR THE XOR’ TESTERANMIA 
025432 105737 001117 23: TSTB. = SERFLG : HAS AN ERROR OCCURRED? 
025436 001502 BEQ 3$ IF NO 
025440 022737 177777 022256 CMP #-1, CPSAVE *:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
025446 001455 BEQ 2003$ *:KICK AROUND ROUTINE IF SO 
025450 013746 000004 MOV ERRVEC,-(SP) ::SAVE CONTENTS OF ERROR VECTOR 
025454 012737 025472 000004 MOV #2000$ ,ERRVEC 77SETUP 'TRAP' RETURN ADDRESS 
025462 013737 177766 022256 MOV 127766 ,CPSAVE ‘MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


8 
025472 012737 177777 022256 2000$: MOV #~1,CPSAVE :;SET CPU ERROR REGISTER TIM.OUT INDICATOR 
025500 012716 025506 MOV #2001$, (SP) 7zSETUP RETURN ADDRESS 


R 
025506 012637 000004 2007$: MOV iSP) + ,ERRVEC 7¢RESTORE CONTENTS OF ERROR VECTOR 


025512 022737 177777 022256 2002$: CMP #-1, CPSAVE 33SEE IF CPSAVE HAS CPU ERR REG TIMEQUT INDICATION 
025520 001430 BEQ 2003$ 3; sBRANCH IF SO 

025522 032737 000001 022256 BIT #BITOO,CPSAVE ;;SEE IF THE POWER MONITOR BIT IS ON 
025530 001424 BEQ 2003$ 7¢BRANCH TO CONTINUE ROUTINE IF CLEAR 
025532 042737 000001 177766 BIC #B1T00,177766 ;;CLEAR THE BIT FOUND TO BE SET 

025540 013746 001154 MOV SWR ,~ (SP) 33SAVE SWR ADDRESS 

025544 017646 000000 MOV a(SP) ,~-(SP) 33;SAVE SWR VALUE 

025550 012737 000176 001154 F MOV #176,SWR 3;GET SOFTWARE SWR ADDRESS 

025556 011677 153372 MOV (SP) ,aSWR 73GET Sen SWR_ VALUE 

025562 042777 001000 153364 BIC ABITO9,aSWR ; DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
025570 104177 EMT 177 ;CALL SPECIAL POWER FAIL BIT ERROR CALL 
025572 012676 000000 MOV (SP)+,a(SP) SSRESTORE SWR TO ORIGINAL VALUE 

025576 012637 001154 MOV (SP)+,SWR 7;RESTORE SWR ADDRESS 


“7®MVBO RMOS/3/2 EXT'D DR TST 


CUPE HANDLER ROUTINE 


: 37 601131 

032777 001000 
1406 

013737 001124 


105037 001117 
005037 001220 


032777 004000 


006 
005237 001120 
023737 001220 


012737 000001 
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SEQ 01°& 
20038: 
001117 CMPR SERMAX ,SERFLG ay ERRORS FOR THIS "&ST UCCURRED? 
BH] 3 : 7 7BR IF NO 
153334 pa ee ,@SWR - LOOP Fa asec 
OO1122 7§: a ae ie ~SLPADR +o8Er LOOP ADDRESS TO LAST SCOPE 
VER 
4$: CLRB SERFLG ¢2ZERO THE ERROR FLAG 
CLR STIMES : CLEAR THE NUMBER OF 'TERATIONS TO MAKE 
BR 1$ ets TO THE NEXT TEST 
153302 3$: BIT #81711, aSwWR C INHIBIT ITERATIONS? 
BNE 1$ : +: BR IF YES 
INC SICNT c INCREMENT ITERATION COUNT 
001720 CMP STIMES .SICN’ CHECK THE NUMBER OF ITERATIONS MADE 
86 sever 77BR IF MORE ITERATION REQUIRED 
001120 1$: MOV 1,$10N :2REINITIALIZE THE ITERATION COUNTER 
007220 MOY SMiCNT STIMES 1 NUMBER OF ITERATIONS TO DO 
Sv. AD: INCB $7S 5 Rout TEST NUMBERS 
001240 *OvVB STetNe. STESTN :;SET TEST NUMBER IN APT MAILBOX 
MOV (S§P), $LPADR :2SAVE SCOPE LOOP ADDRESS 
MCV (SP). SLPERR 27SAVE ERROR LOOP ADDRESS 
CiR SE SCAPE Zz CLEAR THE ESCAPE FROM ERROR ADDRESS 
00°131 OVA #1, SERMAX : ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
153210 $0VER- MOV STSTNM @DISPLAY ::DISPLAY TEST NUMBER 
Ov SLPADR, (SP) Zc FUDGE RETURN ADDRESS 
RTI ScFIXES PS 
SMXCNT: 3 2 cMAX. NUMBER OF ITERATIONS 


rere et CE ee SEE GD ne NRL ieee | enceumreerunmee 
~ = - 


cZRMVBO RMO5/3/2 EXT'D 
SAVE AND RESTORE RO=R5 ROUTINES 


025756 
025756 


6006 
026012 


026014 
026014 
026020 


626050 


000002 


DR TST 


000022 
000022 
000022 
000022 


MACRG V04.00 


~SBTTL 


¢ 1 
G=APR=-B1 11:57:"°2 PAGE E 2 


i) 
5 


SAVE AND RESTORE RO-RS ROUTINES 


SEQ 0119 


TRAERARAHHRAHHRAEAREKRERHROEHRHEERAEHTAEHHERHHEHAAAAARARARAARATAERREEEREEAHARLE 


TRSAVE RO-R5 
2*CALL: 


te ropa-=(+16) 
pe ¢2ern (+718) 
te +4 ~~~R5 
Ie 6-=-R6 
s& ¢Be--RZ 
> ae Teme? 
F891 2-=-R1 
7#414-=-R0 


SSAVREG: 


s*RESTORE RO-RS 


S*CALL: 
ze RE SREG 
S$RESREG: 


RO,-(SP) 
R1,-(SP) 


22(SP) ,=(SP) 
22(SP) ,=(SP) 
22(SP) .=(5P) 
22(SP) ,-(SP) 


(SP) +, 22(SP) 
(SP) +*,22(SP) 
(SP) +,22(SP) 
(SP) +,22(SP) 
(SP) +,R5 
(SP) +,R4 
(SP)+¢,R3 
(SP) +#,R2 
(SP) +,R1 
(SP)+,RO 


ZERESTORE PC 
RESTORE FS 
7 RESTORE PC 
: RESTORE PS 
7cPOP STACK 
23POP STACK 
bop STACK 
Z:POP STACK 
; POP STACK 
cPOP STACK 


AVREG 
; SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
MAIN FLOW 
MAIN FLOW 
CALL 

CALL 


OF CALL 

OF CALL 

OF MAIN FLOW 
OF MAIN FLOW 
INTO R5 

INTO R4& 

INTO R3 

INTO Re 

INTO R1 

INTO RO 
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TRAP DECODER SEQ 0120 
.SBTTL TRAP DECODER 


RRA AEE H ANAT EATEN AREER EER ERE EEE TREE TREE N TREE 
S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
2*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
2*GO TO THAT ROUTINE. 


026052 010046 STRAP: MOV RO,-(SP) SZSAVE RO 
026054 016600 000002 MOV 2(5P) ,RC 2 iGET TRAP ADDRESS 
026960 005740 TST =(RO) BACKUP BY 2 
026062 111000 MOVB (RO) ,RO iiGET RIGHT BYTE OF TRAP 
026064 006300 ASL RO ZPOSITION FOR INDEXING 
26066 016000 026106 MOV $TRPAD (RO) ,RO + INDEX TO TABLE 
026072 000200 RTS RO 22GO0 TO ROUTINE 
:: THIS JS USE TO HANDLE THE ‘‘GETPRI‘’ MACRO 
C26074 011646 $STRAP?2: MOV (SP) ,~=(SP) sZMOVE THE FC DOWN 
026076 016666 000004 0900002 MOV 4&(SP) ,2(SP) :IMOVE THE PSwW DOWN 
026704 000002 RTI CcRESTORE THE PSw 
.SBTTL TRAP TABLE 
r*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:eBY THE ‘TRAP’ INSTRUCTION. 
: ROUTINE 
026106 026074 $TRPAD: .WORD $TRAP2 
026110 023042 $TYPE 33 CALL: TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
026112 023422 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
026114 023376 $TYPOS ;:CALL=IyYPOS TRAP+3(104403) TYPE OCTAL NUMBER (AO LEADING ZEROS) 
026116 023436 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
026120 023624 S$’YPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
026122 024450 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
026124 024360 S$CKSWR : SCALL=CKSUR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SwWR 
026126 024722 SRDCHR :;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER RGUTINE 
£26130 025012 SROLIN 3; CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
076132 025756 SSAVREG 3; CALL =SAVREG TRAP4#12(104412) SAVE RO-RS ROUTINE 
026134 026074 SRESREG :: CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 


e7RMVBO RMOS/3/2 EXT'D DR TST 


- SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


026136 
026144 
| 026150 
026154 
026160 
026164 
026166 


016637 


000002 
026166 
026172 
000005 
090002 


000000 


— 1 
MACRO V04.00 4-APR-81 11:57:°2 PAGE 8 
SEQ 012" 


-SATTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


MRA RR ARERR RREROTREAEARREREOREEREARERORERARRHRERARRRERR HERE ORE 
TeTHIS ROUTINE wilt CONVERT A 16-811 UNSIGNED BINARY NUMBER TO AN 
> *UNS IGNED DECIMAL ASCIZ NUMBER. 


CALL 
al MOV NUMBER ,< (SP) :;Purl BINARY NUMBER ON THE STACK 
of JSR PC ,a#$SB82D CALL 
tt RE TURN Zs ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
626166 $SA2D: MOV 2(SP),1$ 7c2SAVE BINARY NUMBER , 
MOV ais, -(SP) 7 SET POINTER 
JSR PC, ar$iB2D 2+ CALL DOUBLE LENGTH CONVERT 
ADD #5. (SP) SONLY ALLOW FIVE CHARACTERS 
MOV (sP)*, 2¢SP) iP 1CKUP POINTER 
RTS 2: RETUR 
1$: WORD O- 0 


F 10 
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“CUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


-SBTTL DOUBLE LENGTH BINARY TQ DECIMAL ASCI! CONVERT ROUTING 


SEO O1.. 


° PTA AAAAEAEO COREA EEREEREEEEAAAAAHRAANHEAHHOTEHEEREEEEREEEERE ERED 


>*THIS ROUTINE WILL CONVERT A 32=B17 BINARY NUMBER TO AN UNSIGNED 


= *DECIMAL (ASCII) NUMBER. 


THE SIGN OF THE BINARY NUMBER MUST BE 


i sPOSITIVE. 
2eCALL 
te MOV #PNTR.-( SP) :zPOINTER TO LOW WORD OF BINARY NUMBER 
3° JSR PC, a#$DB82D 
te RE TURN Zi THE FIRST ADDRESS OF ASCIZ 
2218 ON THE STACK 
026172 106412 $DB2D: SAVREG ZrSAVE REGISTERS 
926175 016602 000002 MOV 2(SP) ,R2 ::PICKUP THE DATA POINIER 
926200 012706 026352 MOV #SDECVL RO *=GET ADDRESS OF 'SDECVL’’ STRING 
026204 019066 600002 MOV RO,2(SP) SZPUT ADDRESS OF ASCIZ STRING ON STACK 
026210 012201 MOV (R2)+,R1 Z7PICKUP THE BINARY NUMBER 
026212 012202 MOV (R2) +. R2 
526214 012737 0C0012 626270 MOV #10. ,4$ :2SET UP TO DO 10 CONVERSIONS 
026222 012706 026302 MOV aSTAPWR RS : ADDRESS OF TEN POWER 
026226 012705 026304 MOV ASTNPWR*2,R5 
026232 005003 *$: CLR R3 ZzCLEAR PARTIAL 
526234 jei401 2$: SUB (R6),R1 +:SUBTRACT TEN POWER 
026236 665602 S&C R2 
026240 161502 SUB (R5) ,R2 
926042 002402 BLT 3$ BR IF TEN POWER TO LARGE 
026244 005203 INC R3 : ADD 1 TO PARTIAL 
026246 0N0772 BR 23 LOOP 
026250 062403 3$: ADD (RG) ¢,R1 1 RESTORE SUBTRACTED VALUE 
026252 005502 ADC R2 
526254 062402 ADD (R4&)+,R2 
626256 022525 CMP (85) (R5)¢ z:MOVE TO NEXT TEN POWER 
026260 052703 600060 BIS 0.R8 73 CHANGE PARTIAL TO ASCII 
026264 110320 MOVB a3 ~RO) + “SAVE IT 
026266 605327 DEC (PC) « 7: DONE? 
026270 0000 43: .WORD 0 
026272 001357 BNE 1$. ::BR IF NO 
026274 105020 CLRB = (RO) + >: TERMINATOR 
026276 104413 RESREG TIRESTORE REGISTERS 
026300 000207 RTS PC + =RE TURN 
026302 145000 $™NPWR: 145000 121.0E09 
26304 035632 35632 
026306 160400 160400 321.0£08 
026310 002765 2765 
026312 113200 143200 121.0607 
026314 000230 _ 230 
026316 041100 641100 721.0F06 
026320 000017 
026322 103240 103240 221.0E05 
026326 001 1 
026326 623420 23420 221.0606 
926320 000000 
026332 001750 1750 121.0603 
026334 000000 G 
26336 000144 144 121.002 
624340 000000 a) 


G 10 
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YGIBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


€26342 0000%° te 

026344 000000 0 

0263%6 000001 1 

026350 000000 0 

926352 SDECVi: .BLKB fe. 


23 1.0€01 
321,0€00 
ZERESERVE STORAGE FOR ASCIZ STRING 


fu 
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CaM by SMR Re BT TD DR TST MACRO ¥04.00 GeAPR=81 1°:57:12 PAGE 29 
Tyee MEAT AL AS, 12 5TRING SUPPRESS LEADING ZEROS SEC 0124 


.SBTTL «TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


SPEAR AAS EEE SEEEREERTOT TAR EARAERERTORSHTAREE NEESER NORAE SENS R OHSS 
seTHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
S*LEADING NUMBERS. 


teCAl 
* MOV #NUMADR , = (SP) ZiFIRST ADDRESS OF ASCiZ STRING 
ao JSR PC ,a#SSUPRS 
026366 010046 $CUPRS: MOV RO,-(SP) SAVE RO 
026370 016600 000004 MOV 4(SP) ,RO :SPICKUP THE POINTER 
026374 105710 1$: TSTB (RO) uN EOR? 
026376 001403 BEQ 2s /BR IF YES 
026400 122720 000060 CMPB #°0,(R0O)* 1S THIS AN ASCII ‘0’ ? 
0264046 001773 BEQ 1$ 2:BR OIF YES 
026406 005300 ; ef. DEC RO 3:BACKUP By ‘1°’ 
926410 010037 026416 MOV RO.3$ 37SAVE FOR TYPING 
026414 104401 YPE 32GO TYPE 
626416 000000 3$: -WORD 0 ZczASCIZ POINTER GOES HERE 
026420 012606 MOV (SP) *,RO SRESTORE RC 


926422 012616 MOV (§P)4,(SP) ZERESTGRE THE STACK 
626424 000207 RTS Pr ZZRETURN 


CZRMVBO RMOS/3/2 EXT'D DR TS! 
RANDOM NUMBER GENERATOR ROU" INE 


026426 


026526 
626524 
177771 


026526 


026524 
001057 


047401 


0626526 
026524 


026526 123456 
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os RATAARARAHRETHARARAERAREHHRRAEERARARHARAARARAERHHRERHREHEH ERE ROAR 


S*7H1S ROUTINE 1S 9 DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


37CALL THE ROUTINE 
ZZRETURN HERE THE RANDOM 
ZZNUMBER WILL BE IN 

72 SHINUM, SLONUM 


3ZPUSH RO ON STACK 
:2PUSH R1 ON STACK 
7EPUSH R2 ON STACK 
27SET RO WITH LOW 
ZZSET RI WITH HIGH 
22S€T SHIFT COUNT 
Z3SHIFT RO LEFT AND 
: ROTATE CARRY INTO R1 AND 
22 cue FOR DONE 
Aon areas SHIFT LOOP 
ADD NUMBER TO MAKE Xx 129 
: }PROPOGATE CARRY 
D NUMBER TO MAKE x 129 
Sapp LOW CONSTANT 
72PROPOGATE CARRY 
22ADD HIGH CONSTANT 
7 2SAVE RO 
72SAVE R1 
32POP STACK INTO R2 
72POP STACK INTO R1 
72POP STACK INTO RO 
Z RETURN 


-SBITL RANDOM NUMBER GENERATOR ROUTINE 
SewlTH A RANGE OF 0 10 2(+53)-1. 
SeCALL: 
os JSR PC, $RAND 
:* RETURN 
SRAND: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV $1 ONUM ,, RO 
MOV $HINUM,R1 
MOV #-7,R2 
*$: ASL RO 
ROL R1 
INC R2 
BNE 1$ 
ADD $1. ONUM,RO 
ADC R} 
ADD SHINUM,R1 
ADD #1057,R0 
ADC R41 
ADD #47401,R1 
MOV RO, SLONUM 
MOV R1,$SHINUM 
MOV (SP) +,R2 
MOV (§P)+,R1 
MOV (§P)+,RO 
RTS PC 
SHINUM: WORD 176548 
$LONUM: WORD 423456 


CZ2RMYBO RMO5/3/2 EXT'D 


UNTEGER DIVIDE ROUTINE 


026530 


104400 
042716 


pR TSf 


000017 


000021 


000003 


000020 


000003 
177777 


000002 


MACRO .04.0C 4-APR-B* 11:57:42 PAG 


000014 


J 10 
— 3) 

SEQ O1¢6 
~SBITL INTEGER DIVIDE ROUTINE 


RARER ARHAHAKHARAARAARARAHHAREHARRAEHAAHANERAAAARERNHO HHA Hee 


Z*THIS ROUTINE WILL DIVIDE A 32-BIT TwO'S COMPLEMENT INTEGER 


";*DIVIDEND BY A 16-817 TwO'S COMPLEMENT INTEGER DIVISOR GIVING 


tA 16-31T TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BI7 REMAINDER. 
reDIVISION WII.L BE PERFORMED SO THAT THE REMAINDER IS OF THE 

earth SIGN AS THE DIVIDEND. 

o*CALL: 


ye MOV LOW CIVIDEND,-~(SP) ii THE HIGH DIVIDEND MUST BE < 7/2 
se MOV HIGH DIVIDEND,-(SP) :ZAS LARGE AS THE DIViSOR 
os MOV DIVISOR,=-(SP) 
iv JSR PC, $DIV 
ze RE TURN s:QUOTIENT & REMAINDER ARE ON THE STACK 
te "V''=0 IMPLIES NO ERROR 
ae "v1 IMPLIES ERROR OCCURRED 
2° "C''s0 = DIVIDE OVERFLOW OCCURRED 
:° ‘c's? ATTEMPTED TO DIVIDE 8Y ZERO 
-® 
:° STACK NO ERROR OVERFLOW DIVIDE &Y ZERO 
ie TOP REMAINDER ALL ZEROS ALL ONES 
i° +2 QUOTIENT ALL ZEROS ALL ONES 
$viv: 
TRAP PUSH OLD PSW AND PC ON STACK 
BIC #17, (SP) zzSTRIP AWAY CONDITION CODES 
MOV ROQ,=-(SP) :2PUSH RO ON STACK 
MOV R1,-(SP) >:PUSH R1 ON STACK 
MOV R2,-(SP) 7 PUSH R2 ON STACK 
MOV R3,-(SP) : PUSH R3 ON STACK 
CLR -(S$P) ::SAVE A PLACE FOR SIGNS 
MOV #17. ,~(SP) 77SETUP THE ITERATION COUNTER 
MOV 24(SP) ,R1 :zPICKUP THE DIVIDEND 
MOV 22(SP) .RO | 
BPL 1$ etre. THE SIGN 
DECA 3(SP) ZKEEP TRACK OF THE SIGN 
NEG RO AND NEGATE THE ORIGINAL 
NEG R1 * NUMBER 
SBC RO 
1$: MOV 20(SP) ,R2 szPICKUP THE DIVISOR 
BLT 2$ CHECK THE SiGN 
BGI 3$ zDIVSOR OF 0 IS A NO-NO 
81S #3,14(SP) SET 'V'' @ 
MOV a~1 RO SET REMAINDER TO ALL ONES 
BR 7$ sEXIT 
$s: ine ee KEEP TRACK OF DIVISORS SIGN 
4 
38; NEG R2 : :NEGATE, THE ORIGINAL NUMBER 
4%: CLC CLEAR ‘'C'' 
BR 6$ +: START cor QUOTIENT 
S$. ROL RO rayon MSB 
MOV RO,R3 = COPY 
ADD R2,R3 SCOMPARE DIVIDEND & DIyISOR 
BCC 6$ TBR IF DIVIDEND > DIVISOR 
MOV R3,R0 « CREMAINDER AFTER THIS LOOP 


“7RMVBO RMO5/3/2 EXT'D DR TS! 
INTEGER DIVIDE ROUTINE 


026746 


000002 


000002 


000001 


000020 
000016 


000002 
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6$: ROL R1 
DEC (SP) 
BNE 5$ 
TST Ri 
BPL 8$ 

000014 BIS #2,14(SP) 

CLR RU 

7$: MOV RO,R1 

8$: TST (SP) + 
TST (S$?) 
BGE 9$ 
NEG RO 
CLRB 1(SP) 
DEC (SP) 

9$: TST (SP) + 
BEQ 10$ 
NEG R1 

10$: MOV R1,20(SP) 
MOV RO,16(SP) 
MOV (SP) +,R3 
MOV (SP) +,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
MOV (SP) +,2(SP) 
RTI 


K 
E 


0 
le 


1 
SEQ 0127 


;QUOTIENT BIT ENTERS HERE 
; :DONE? 


:cBR IF NO 

: OVERFLOW? 

aa IF NO 

si SET 'V'' IN RETURN STATUS WORD 
725FT REMAINDER TO ALL ZEROS 

:7COPY REMAINDER INTO QUOTIENT 

Zz CLEAR COUNTER FROM STACK 

Sastre ibe SIGN CORRECTION NEEDED? 


ae F NO 
ZZNEGATE REMAINDER 

ZiCLEAR SIGN 

;¢BUT DON') FORGET QUOTIENT 

t QUOTIENT SIGN CORRECTION NEEDED? 
:2BR IF NO 

ZiNEGATE QUOTIENT 

7ZRETURN QUOTIENT AND 

ssREMAINDER TO USER 

>:POP STACK INTO R3 

:gPOP STACK INTO R2 

73POP STACK INTO R1 

:zPOP STACK INTO RO 

:7SETUP TO RETURN CONDITION CODES 
ZZ RETURN 


CZRMVBO RMOS/3/2 EXT'D 
APT COMMUNICATIONS ROUTINE 


026750 
026756 


027214 


900040 


DR TST 


000001 
000001 


000001 


027212 
000001 
000100 
000004 
000002 
001234 


001250 


001250 


001252 
000004 


000004 
00002 
177776 
023042 
027214 
001254 
001234 


000004 


027212 
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0272°4 
027212 


027214 


001254 
001255 


000004 


001234 


027124 
000064 


001236 
000004 


L 
E 


SEQ 0128 


-SBTTL APT COMMUNICATIONS ROUTINE 


LLAMA AAAHEAAAERAARARRERAEAARORAARAAHAREHEERAHRE HAAR ERR ERD 


SATY1: 
SATY3: 


S$ATYG: 
SATYC: 


1$: 


es: 


3$: 


4$: 
108: 


118: 


12$: 


SMFLG: 
$LFLG: 
SFFLG: 


APTSPOOL 
APTC SUP 


MOVB 
pe 


8 
MOVB 


Unk tt te e ee 


#1,SFFLG 
#1,SMFLG 
SATYC 

#1,$FFLG 


RO,=(SP) 
R1,-(SP) 
SMFLG 


5$ 
MAPTENV, SENV 
3$ 


Meee 


3 

@4(SP) ,RO 
#2,4(SP) 
S$MSGTYPE 


1$ 

RO, SMSGAD 
(RO)+ 

es 
Boerne 


0 
RO, $MSGLGT 
ae 


SFFLG 
12$ 
SENV 


12$ 

SMSGTYPE 

11$ 

a4 (SP), $FATAL 
#2,4(SP) 


SMSGTYPE 
SFFLG 


(SP)+,R1 
(SP)+,RO 
PC 

0 


0 
0 


3270 REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


72T0 ONLY REPORT FATAL ERROR 


:;PUSH RO ON STACK 
7PUSH R1 ON STACK 
:: SHOULD TYPE A MESSAGE? 


IF NOT: BR 
: LOPERAT ING UNDER APT? 
NOT: BR | 
; SHOULD SPOOL MESSAGES? 
NOT: BR 


SGET MESSAGE ADOR. 
; BUMP RETURN ADDR. 
37 SEE IF’ DONE W/ LAST XMISSION? 
3i1F NOT: WAIT 
7ePUT ADDR IN MAILBOX 
7sFIND END OF MESSAGE 


:2SUB START OF MESSAGE 

27GET MESSAGE LNGTH IN WORDS 
:cPUT LENCTH IN MAILBOX 

zz TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
BUMP RETURN ADDRESS 
2 :PUSH 15946 ON STACK 
“CALL TYPE MACRO 


3zSHOULD REPORT FATAL ERROR? 
z:1F NOT: BR 
NNT UNDER APT? 


:1F NOT: BR 
2 IF INISHED tare MESSAGE ? 
NOT: WAIT 


3 IF 

SIGET ERROR a 
BUMP RETURN ADDR. 

ri TELL APT TO TAKE ERROR 
32CLEAR FATAL FLAG 
3.CLEAR LOS FLAG 
73 CLEAR MESSAGE FLAG 

POP STACK INTO R1 
>:POP STACK INTO RO 
7 RETURN 


SSFATAL FLAG 
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sTHIS ROUTINE IS USED TO 'NCREMENT THE ERROR COUNT FOR EACH DRIVE BEING 
[TESTED. IF THE TOTAL ERRORS ON ANY DRIVE EXCEEDS THE MAXIMUM ALL OWABLF 
TERRORS DESIGNATED IN LOCATION 'ERMAX', A oe WILL BE TYPED AND THE 
DRIVE IN ERROR WILL BE DROPPED FROM THE TEST 


2 
3 
é 
6 027216 010046 INCEC: MOV RO, Bee 7 SAVE RO 
7 027220 013700 040650 MOV RMADR , RO GET RM BASE ADDRESS 
8 027224 016000 000010 MOV RMCS2 20) RO :GET CONTENTS OF RMCS2 
9 027230 042700 177770 BIC RO SAVE UNIT SELECT BITS 
10 027234 136037 040636 001330 BITB Rai nbs: DRVSEL WAS THIS DRIVE SELECTED FOR TEST 
11 027242 001432 BEQ 1$ :BR IF NO 
12 027244 105260 001472 INCB ERRCN(RO) ‘INCREMENT ERROR COUNT 
13 027250 126037 001472 001316 CMPB ERRCN(RO) ,ERMAX ; EXCEEDED ERROR LIMIT ? 
14 027256 103424 BLO 1$ BR IF NO 
15 027260 104401 001231 TYPE .SCRLF 7 CRLF 
16 027264 104401 047625 TYPE »MSORIV TYPE ‘DRIVE’ 
17 027270 010046 MOV RO,~(SP) zz SAVE RO FOR TYPEOUT 
027272 104403 TYPOS 3:GO_TYPE--OCTAL ASCII 
027274 002 -BYTE 2 i TYPE 2 DIGIT(S) 
627275 000 BYTE 0 2 SUPPRESS LEADING ZEROS 
18 627276 104401 047634 TYPE , DROP TYPE ° DROPPED 
19 027302 104401 047515 TYPE COMMA : TYPE ' 
20 027306 104401 047645 TYPE ~EXCEED TYPE "EXCEEDED MAXIMUM ERROR LIMIT’ 
21 027312 146037 040636 001330 BICB ATABIT(RO), DRVSEL :DESELECT DRIVE FROM TEST 
22 027320 005337 021506 DEC SEOPCT ADJUST *EOP’ COUNT 
23 027324 000137 021334 JMP $SEOP “RETURN TO SEOP 
24 027330 012600 1$: MOV (SP)+,RO :RESTORE RO 
o 027332 000207 RTS PC 
27 THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER, 
28 AND DRIVERS, THEN SELECTS THE DRIVE. 
7 CALL: 
= : JSR PC,CNTCLR zCALL TO ROUTINE 
$2 
33 027334 013704 040650 CNTCLR: MOV RMADR ,R4 :GET RMCS1 BASE ADDRESS 
34 027340 012764 000040 000010 MOV #CLR,RMCS2(R4) ;1SSUE MASSBUS CLEAR AND 
35 027346 042737 177770 001352 BIC #*C7, CHKDRV SAVE UNIT SELECT BITS 
36 027354 013764 001352 000010 MOV CHKDRV,RMCS2(R4) >SELECT THE DRIVE 
a 027362 000207 RTS PC RETURN 
39 SET 'LPTAVL’' TO THE PROPER STATE. 
40 : LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 
41 : CPTAVL = 1 JF LINE PRINTER IS AVAILABLE 
42 7 CALL 
43 : JSR PC,LP.AVL 
“ : RETURN 
46 027364 005037 001326 LP.AVL: CLR LPTAVL START WITH NO PRINTER AVAIABLE 
47 027370 012737 027414 000004 MOV #1$,ERRVEC sSETUP THE TIMEQUT VECTOR 
48 027376 005037 000006 CLR ERRVEC+2 
49 027402 005777 152126 TST aLPs SIS THERE A LINE PRINTER? 
50 027406 005237 001326 INC LPTAVL 7 YES-~SET AVAILABLE SWITCH 
51 027412 000401 BR 2s 
52 027414 022626 1$: CMP (SP) +, (SP) + NO=-POP STACK 
53 027416 012737 000006 000004 2$: MOV WERRVEC*2,ERRVEC’ RESTORE TIMEOUT VECTOR 
54 027424 000207 RTS PC RETURN 
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APT COMMUNICATIONS ROUTINE SEQ 013 

55 

56 STHIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 
57 “AND IF THERE 1S IT WILL SETUP THE VECTOR AND START THE CLOCK 
58 SCLKSTA' WILL INDICATE THE CLOCK TYPE 

59 > O= NO CLOCK 

60 :+1= KW11-P 

61 Tels KWITeL 

62 THIS ROUTINE WILL ALSO SETUP \TICKMS!” (1 IME 

63 “PER CLOCK TICK IN MILLISECONDS) AND ‘'TICKUS"’ 

64 : (TIME PER CLOCK TiCk IN MICROSECONDS) AS 

65 “PER Sw00. 

06 :$wOO=0 -- 60H7 

67 :SwOO=1 -~ 50HZ 

68 CALL 

69 : JSR PC, ST. CLK 

70 : RETURN 

72 027426 010146 ST.CLK: MOV —-R1,-(SP) :SAVE R1 

73 027430 012701 000006 MOV -« #ERRVEC+2,R1 «SAVE AND SETUP TIMEOUT VECTOR 
74 627434 011146 MOV (R11), = (SPS 

75 027436 005011 CLR (RV) ZLEVEL 0 

76 027440 014146 MOV = (RT) ,= (SP) 

7? 027442 012711 027472 MoV #1, (RT) :GO_TO 1$ ON TIMEOUT 

78 027446 005037 001342 CLR CLKSTA =SET CLOCK STATUS TO NO CLOCK 
79 027452 005777 152036 TST APKC 1S THERE A kW11-P? 

80 027456 012737 000001 007342 MOV «#1, CLKSTA SYES--SET STATUS TO KW11-P 

81 027464 004737 027574 JSR «PC, ST..PCLK SSTART THE KW11-P 

82 027470 000414 BR 3$ G0 TO EXIT 

B83 027472 022626 18: cme ss (SP)#,(SP)* CLEAN UP THE STACK 

84 027474 012711 027520 mov ss: #2$, (RT) SIF TIMEOUT GO TO 2$ 

85 027500 005777 152022 TST — @LKS SIS THERE A KW11-L? 

86 027504 012737 177777 001342 MOV  —s-#=1, CLKSTA ZYES-- SET STATUS TO kKW11-L 
87 027512 004737 027636 JSR PC, ST.LCLK ZSTART THE KW11-L 

88 027516 000401 BR 3$ ZEXIT 

89 027520 022626 2s: ¥ MP (SP)+,(SP)*+ CLEAN UP_THE STACK 

90 027522 012621 $$: 4 MOV (SP)+5(R1)+ RESTORE THE TIMEOUT VECTOR 
91 027524 012621 \ mov (SP) +5 (R1)+ 

92 027526 012601 MoV (SP) +1 SRESTORE R1 

93 027530 032737 000100 001314 BIT #5WO6.C.SWR  50HZ OR 60hZ? 

9% 027536 001407 BEQ 4S “BRANCH IF 60 

95 027540 012737 000020 001344 MOV «#20, TICKMS “SETUP TIME PER 

96 027546 012737 047040 001346 mov #20000. , TICKUS :TICK FOR 50HZ 

97 027554 000406 BR 5$ 

98 027556 012737 000016 001344 4$: MOV =: #16, TICKM SETUP TIME PER 

99 027564 012737 040432 001346 MOV «#16666. TICKUS TICK FOR 60HZ 
190 027572 000207 S$: RTS = RETURN 
102 027574 ST.PCLK: 
103 027574 032737 000040 001314 BIT  #SWOS,C.SWR «ALLOW SOFTWARE TIMEQUIS? 
104 027602 001014 BNE 1$ NO=~BRANCH 
105 027604 012777 027672 151676 MOV ASRVCLK ,APKV :SETUP THE KW11-P VECTOR 

106 027612 012777 000300 151672 Mov «#300, aPKV+2 
107 027620 012777 000001 151670 MOV —s #1, PKB COUNT ONE TICK . : 
108 027626 012777 000115 151660 mov «#115, aPKCS :TINT.EN..'.COUNT DOWN", “MODE 1 (REPEAT) 
109 ZULINE FREQ’, AND * 

10 027634 000207 1$: RTS — PC : RE TURN 


“7RMVBC RMO5S/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUTINE 


027636 


~» +o 
a a ey 


BUN AO ODO VAP wero 


a + «2 0 


027670 


027672 
027676 
027702 


at uw 


a 
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130 027704 
C27704 
0277 

027710 
027712 
027714 


032737 
001011 
012777 
012777 
012777 
000207 


0135746 


010046 
010146 
010246 


C0G040 
027672 


000300 
000100 


001344 
044670 


166777 


0000 
002526 
003132 


004176 
003576 


004236 
000001 
000037 


000037 
160000 


004000 
177776 
000014 


000002 
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SEQ 0131 
ST.LCLK: 
001314 BIT #Sw05,C.SWR ZALLOW SOFTWARE TIMEOUTS? 
BNE 1$ SNO=-BRANCH 
151646 MOV WSRVCLK,@LKV SETUP THE kKW1IT-L VECTOR 
151642 MOV #300,aLKV+2 
151636 MOV #100, aLKS sSTART THE KW1l-L 
1$: RTS PC ‘RE TURN 
SRVCLK. “OV TICKMS , (SP) ; TIME PER TICK IN MILLISECONDS 
JSR PC .RMTMR ‘COUNT THE ELASPED TIME 
RTI “RETURN AFTER INTERRUPT 
sTHIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE OROGRAM IS 
: STARTED OR WHEN THE VALUE OF BITCO IN °C.SWR’ IS CHANGED. 
LL 
: JSR PC,.LODFLT 
: RE TURN 
LODFLT: 
MOV RO.-(SP) + PUSH RO ON STACK 
MOV R1.-(SP) +> PUSH R1 ON STACK 
MOV R2. ~($p) ZPUSH R2 ON STACK 
MOV R3,-( +> PUSH R3 ON STA 
001332 MOV aibere?, TSTNMS >SELECT TESTS 0-50. ” .13 & 15-17 
001334 MOV #3, TSTNMS*#2 SSELECT TESTS 20 & « 
MOV #DFLT,RO “DEFAULT PARAMETERS POINTER 
MOV #PRMO.R1 : TABLE POINTER 
MOV K1,R2 “STOP ADDRESS 
1$: MOV (RO) +, (R1)+ “MOVE DEFAULT PARAMETERS INTO 
CMP RO.R2 “RUN TIME TABLES ** DONE? 
BLO 1$ *NO~-BRANCH 
MOV #PATB,RO [PATO DEFAULTS TO PATTERN 8 
MOV #PATO,R1 
2s: MOV (RO) +. (R1)4 
CMP RO, aPATS 
BLO 2$ 
001314 BIT WBITOO,C.SWR 16 BIT MODE ? 
BNE 3$ BR IF 18 BIT MODE 
002470 MOV #31, ,PRMLMT +24 eer "FS" LIMIT TO 31. 
002472 MOV #31. PRMLMT+26 =SET ‘LS* LIMIT TO 31. 
001452 Mov #<256, «32>, TREK “WORD COUNT FOR A 16 BIT TRACK 
002470 38: MOV #39. SPRMLMT#24 SET ‘FS LIMIT TO 29. 
002472 MOV #29. PRMLMT+26  :SET ‘LS* LIMIT TO 29. 
001452 MOV #~<256.*30.>, TRCKWC :WORD COUNT FOR AN 18 BIT TRACK 
4$: MOV #PRMPT RI sADDRESS OF PARAMETER POINTER TABLE 
S$: TST (R1) TEND OF PARAMETER POINTER TABLE ” 
BEQ BS :BR IF YES 
BIT WAIT11,a(R1)* TS "LS" SELECTED AS A VARIABLE IN THIS TEST 2 
BEQ S$ [BR IF NO 
MOV ~2(R1) ,R2 “GET FIRST POSITION IN PARAMETER TABLE 
MOV (R2) ,=(SP) SAND SAVE VARIABLES BITS THAT ARE USED. 
MOV #12,.R3 “POSITION OF ‘LS* IN TEST PARAMATER TABLE 
6$: ASR (SP) STS THIS PARAMETER A VARIABLE 7 
BCC 7 ‘BR IF NO 
ADD #2.R2 iVES, POINT TO NEXT PARAMETER IN TABL: 
7$: DEC R3 AT LS" PARAMETER YET ? 
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APT COMMUNICATIONS ROUTINE SEQ C12 
165 930110 001372 BNE BR 1F NO 
166 030112 005726 TST ($P)+ ; sADJUST THE STACK 
167 030114 021237 002470 CMP (R2),PRMLMT+24 31S ‘LS* TOO LARGE FOR THE MODE S*LECTED ~ 
ies 630120 101754 BLOS $ :BR IF 
169 030122 013712 002470 MOV PRMLMT+*24,(R2) ;RESET VALUE FOR MODE USED 
170 030126 000751 BR 5$ CONTINUE 
171 030130 8$: 
030130 012603 MOV (SP) +,R3 32POP STACK INTO R3 
030132 012602 MOV (SP)+,R2 3¢POP STACK INTO R2 
030134 012601 MOV ($2) 4*,R1 33;POP STACK INTO R1 
030136 012600 MOV (SP)+,R0 32POP STACK INTO RO 
ioe 030140 009207 RTS PC RETURN 
fe eae ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
2 CALL 
176 : MOV ATESTNUM,STSTNM ;LOAD THE TEST NUMBER 
177 JSR PC,LODPRM 
178 RE TURN 
179 
180 €30142 LODPRM: 
030142 010146 MOV R1,~(SP) 3¢PUSH R1 ON STACK 
030144 010246 MOV R2,~-(SP) 33PUSH R2 ON STACK 
030146 010346 MOV R3,-(SP) i¢PUSH R3 ON STACK 
030150 010446 MOV R4,-(SP) 23PUSH R4& ON STACK 
181 030152 005004 CLR R4 CLEAR R4 
182 030154 113704 001116 MOVB STSTNM,R4 3GET THE TEST NUMBER 
183 030160 006304 ASL R4 SETUP TO ADDRESS WORDS 
184 030162 016401 002374 MOV PRMPT(R4) RI GET THE TEST’S PARAMETER TABLE ADDRESS 
185 030166 012702 002334 MOV #PRM,RO PARAMETER EXECUTION TABLE 
186 030172 005003 CLR R 3R3_I1S USED AS A COUNTER 
187 0301-4 013704 001352 MOV CHKDRV ,R4 :GET DRIVE ADDRESS 
188 030200 Q12122 MOV (R1)+,(R2)+ sLOAD PARAMETER SPECIFIER 
189 930202 006237 002334 i$: ASR PRM 71S THIS PARAMETER USED IN THE TEST ? 
190 030206 103002 BCC 2s [BR IF NOT 
191 030210 012122 MOV (R1)+,(R2)+ LOAD THE VALUE 
"G92 030212 401 BR 3$ > CONTINUE 
“93 030214 005022 2$: CLR (R2) + [CLEAR THE UNUSED PARAMETER LOCATION 
194 030216 5203 3$: INC R3 COUNT THE POSITION IN THE OUTPUT TABLE 
195 030220 022702 002362 CMP MPAT+2,R2 SFINISHED ? 
196 030224 001437 BEQ 7$ 7BR IF YES 
197 030226 022703 000007 CMP a7 ,R3 - DOING TRACK PARAMETERS ? 
198 030232 1363 BNE 1$ IF NO 
199 030234 122764 000007 040542 CMPB #7.DRVTYP(R4) 1S DEVICE AN RMOS ? 
200 030242 001422 BEQ 6 iF SO, OVERLAY FT, L7 &@ IT WITH FT’, to" Qivt 
201 030244 013737 002456 001374 MOV PRMLMT+12.LSTRK ;GET LAST TRACK FOR AN RMO3/2 
202 030252 062703 000003 ADD #3,R3 SADJUST COUNTER 
203 030256 237 002334 ASR :COUNT THE PARAMETER 
204 030262 103001 BCC 4$ BR IF FT* IS NOT USED 
205 030264 005721 TST (R1)+ sMOVE THE INPUT POINTER 
206 0302 006237 002334 43: ASR PRM 3; COUNT THE PARAMETER 
207 030272 103001 BCC 5$ BR IF _LT* NOT USED 
208 030274 005721 TST (R1)+ MOVE THE INPUT POINTER 
209 030276 006237 002334 5$: ASR PRA COUNT THE PARAMETER 
210 030302 103337 BCC 1$ BR IF_IT* NOT USED 
ran) 304 005721 TST (R1)+ MOVE THE INPUT POINTER 
212 030306 000735 BR 1$ sKEEP GOING 
213 030310 013737 002464 001374 6$: MOV PRMLMT+20,LSTRK ;GET LAST TRACK FOR AN RMCS 
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214 030316 162702 000006 SUB #6,R2 ;BACKUP THE OUTPUT POINTER 
215 030322 000727 BR *$ KEEP GOING 
216 030324 7$: 
030324 012604 MOV (SP)+,R4 3-POP STACK INTO R4 
030326 0 2603 MOV (SP)+,R3 :2POP STACK INTO R3 
030330 012602 MOV (SF) +,R2 3¢POF STACK INTO R2 
030332 012601 MOV (SP)+,R1 33POP STACK INTO Ri 
4 030334 000207 RTS PC sRETURN 
219 i: THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
220 7 INTO_DPB.B+2 AND DP8.C+2, DEPENDING ON THE STATE OF ‘'CONTROL SWIICH’' 
221 sBIT07. 
eee 3 CALL 
2e3 : JSR PC,1DCMD 
$58 : RETURN 
226 030336 032737 000200 001314 LDCMD: BIT #SWO7,C. SWR DO EXPLICIT SEEKS? 
227 030344 001007 BNE 1$ _ + YES--BRANCH 
228 030346 012737 000173 047040 MOV MREADHD .DPB.B+¢ ;NO~-SET UP FOR READ HEADER AND 
229 030354 012737 000173 047060 MOV MRFADHD .DPB.C+2 ;DATA COMMAND 
230 030362 000406 BR 2$ 
231 030364 012737 000105 047040 1$: MOV AMSEEK,DPB.B+2 ;SETUP FOR SEEK COMMAND 
232 030372 012737 000105 047060 MOV #SEEK ,DPB.C+2 
oe 030400 000207 2$: RTS PC 
235 THIS ROUTINE WILL CALL THE RMOS DRIVER AND THEN WAIT ON THE FUNCTION 
Sao comes IF AN ERROR OCCURS IT IS REPORTED. 
238 : FILL ‘DPB'' WITH COMMAND INFORMAT iON 
239 : JSR RO,CALL.A 
rhe : RETURN 
i 
242 030492 005037 00122 CALL.A: CLR SESCAPE NO ESCAPE ADDRESS 
243 030406 004037 041406 JSR RO,RMOS CALL RMOS DRIVER 
244 030412 047016 DPB.A 
245 030414 000772 BR CALL .A 
246 030416 005737 047034 1$: TST DPB.A+16 > CONE ? 
247 030422 001775 BEQ 1$ ;NO--LOOP 
248 030424 100050 BPL 5$ [BRANCH IF NO ERROR 
249 030426 012737 030522 001222 MOV #3$ , SESCAPE 7;ESCAPE 'O 3$ ON ERROR 
250 030434 013737 047030 001366 MOV DPB.A+12,CYL.DS ;CYLINDER ~ 
030442 113737 047027 001372 MOVB DPB.A+11,TRK.DS ; TRACK 
030450 113737 047026 001370 MOVB DPB.A+10,SEC.DS ;SECTOR 
030456 012746 047034 MOV #DPB.A+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
030462 004737 032170 JSR PC ,CRINDX FORM DISPATCH INDEX 
030466 062607 ADD (SP) +,PC sREPORT PROPER ERROR 
030470 104041 EMT 41 SNON-EXIST DRIVE 
030472 104042 . EMT 42 :PARITY ERROR 
030474 104043 EMT 43 : UNSAFE ERROR 
030476 104044 EMT 44 ;NON-1/0 ERROR 
251 030500 000240 NOP 3TO SYNC THE CALLING SEQ OF ERINDx 
252 030502 005737 047154 TST RM.REG+RMER} sANY DRIVE ERROR ? 
253 030506 001004 BNE es BRANCH IF SO 
254 030510 032737 100000 047202 BIT ABSE,RM.REG+RMER2 ;BAD SPOT ERROR 
255 030516 001013 BNE 5$ BRANCH IF SO 
256 030520 e$: 
030520 104045 EMT 45 3170 ERROR 
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257 030522 
258 0305350 


030532 
030536 
030542 
030546 


030550 
030554 


0632737 


000200 


000200 


DR TST 


040000 
032016 


047034 
032130 


001222 
047406 


047054 


930700 


032170 


047154 
000200 
100000 


040000 
032016 
047054 
032130 
047049 


032410 


040000 
032326 


047202 
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3$: Blt #SKI,RM.REG*RMERC SKI ERROR ? 
BEQ 4$ ;BR IF NO 
JSR RO,CALL :D0 BE CALABRO TE COMMAND 
4$: MOV DPA. aetée -(SP) ;STATUS WORD 
JSR PC,LOP.CK SSEE IF LOOP, ABORT, OR CONTINUE 


001222 


901370 


047154 
047202 


047202 


006173 


001314 


5$: RTS RO RETURN 


THIS ROUTINE 1S THE SAME AS ''CALL.A‘’ EXCEPT FOR THE DPB USED AN{ [fF 
THE COMMAND IS A READ HEADER AND DATA THE HEADFR (CYLINDER, TRACK, 
ZAND SECTOR) READ iS CHECKED FOR VALIDITY. 


CALL 

: FILL OPB 

: JSR RO,CALL.8 

: RETURN 

CALL.B: CLR « SESCAPE sNO ESCAPE ADDRESS 
JSR RO,RMOS zCALL RMOS DRIVER 
DPB.B 
BR CALL.B 

18: TST DPB.8+16 DONE? 
GEQ 1$ 7NO--BRANCH 
BPL 5$ sBRANCH IF NO ERROR 
MOV #3$,SESCAPE ZZESCAPE TO 3$ ON ERROR 


MOV DPB.B+12.CYL.DS ;CYLINDER 

MOVB DPB.B+11,TRK.DS ; TRACK 

MOVB DPB.B+10,SEC.DS ;SECTOR 

MOV #0PB.B+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC ,ERINDX FORM DISPATCH INDEX 


ADD (SP) + ,PC REPORT PROPER ERROR 
EMT 41 sNON-EXIST DRIVE 
EMT 42 PARITY ERROR 
EMT 43 UNSAFE ERROR 
EMT 44 sNON-1/0 ERROR 
NOP 7TO SYNC THE Sree SEQ OF ERINDX: RT. 
TST RM..REG*RMERT :DRIVE ERROR 
BEG es :BR IF NOT 
CMP #HCE RM. REG*RMER| sSEE IF ONLY "HCE" SET 
BEQ $ BR IF IT IS 
es: BIT MBSE .RM.REG*RMER2 BSE ERROR 
BNE 7$ ;BRANCH IF SO 
EMT 45 31/0 ERROR 
3$: BIT #SKI.RM.REG+RMERC SKI ERROR ? 
BEQ 4$ 3BR OIF 
JSR RO,C 7D0 RECALIBRATE COMMAND 
4$: MOV DPA. core -(SP) ;STATUS WORD 
JSR PC,LOP. CK . ¢SEE IF LOOP, ABORT, OR CONTINUE 
BR 6$ :CHECK FOR STALL 
5$: CMPB DPB.B+2,#READHD ;DOING IMPLIED SEEKS? 
BNE 6$ :NO-~BRANCH 
JSR RO, VERIFY 7YES--GO CHECK THE DATA 
DPB.B+10 
BR 7$ ERROR DURING VERIFY 
6$: BIT ASW14,C.SWR STALL? 
BEQ 7$ 3NO--BRANCH 
JSR RO, STALL ZSYES~=CALL STALi ROUTINE 
«WORD STALL1 STALL TIME POINTER 
7$: RTS RO RETURN 
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ALAIN ALA ALLA AIA a 
Nw 2 2 ws 


DODWNAVSA WIRE 
Oo So 


031202 


005037 
004037 
047056 


000206 


091222 
041406 


047074 


051116 
047070 
047067 
047066 
047074 
032170 


047154 
000200 
100000 


040060 
032016 
0479074 
032130 
647060 


032410 


040000 
032326 
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001222 
001366 
001372 
001370 


047154 
047202 


047202 


000173 


001314 


ae ROUTINE IS “HE SAME AS ‘'CALL.B'' EXCEPT FOR THE DPB USED. 


: FALL DPB 
RO, CALL.C 
: RETURN 
CALL.C: CLR SESCAPE :NO ESCAPE ADDRESS 
JSR RO,RMOS “CALL RMOS DRIVER 
DPB. ( 
BR CALL .C 
1S: TST DPB.C+16 ; DONE? 
BEQ 1$ :NO==L OOP 
BPL 5$ TYES==BRANCH_1F NO ERROR 


MOV #3$,SESCAPE ;cESCAPE TO 3$ ON ERROR 

MOV DPB.C+12,CYL.DS ;CYLINDER 

MOVB DPB.C+11,TRK.DS ; TRACK 

MOVB DPB.C+10,SEC.DS ;SECTOR 

MOV #DPB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC .ERINDX FORM DISPATCH INDEX 


ADD (SP) +,PC sREPORT PROPER ERROR 

EMT 41 sNON-EXIST DRIVE 

EMT 42 7PARITY ERROR 

EMT 43 UNSAFE ERROR 

EMT 44 sNON-1I/0 ERROR 

NOP 3TC SYNC THE CEINS SEQ OF ERINDX: RT. 


TST RM. REG+RMER1 [DRIVE ERROR ? 
es BR IF NOT 

CMP #HCE .RM.REG+RMERI ;SEE IF ONLY “HCE® SET 
5$ ; IF YES 


BEQ : 
2s: BIT WBSE .RM.REG*RMER? 3BSE ERROR ONLY ? 
BNE 7$ eR ER IF SO 
EMT 45 1/0 ERROR 
3$: BIT #SK1,RM.REG+RMERZ zSKI ERROR > 
BEQ 4$ 7BR IF NO 
JSR RO.C :b0 eee ene COMMAND 
4$: MOV BPA. Cie. ~(SP) ;STATUS WORD 
a ree ,LOP. CK SEE IF LOOP, ABORT, OR CONTINUE 


5$: C DPB.C+2,#READHD :DOING IMPLIED SEEK? 
6$ tNO=~EXIT 
ZYES==-CHECK THE DATA 


JSR RO, VERIFY 
DPB.C+10 
BR 7 sERROR DURING VERIFY 
o$: BIT #S5W14,C.SWR Z STALL? 
BEQ 7$ ;NO--BRANCH 
JSR RO, STALL ZYES=-CALL STALL ROUTINE 
WORD STALL sSTALL TIME POINTER 
7$: RTS RO 


THIS ROUTINE IS THE SAME AS ‘'CALL.A'' EXCEPT FOR THE DPB USED AND 
ON AN ERROR LOCATION "ERR.CT'’ IS EXAMINED. IF ERR.CT IS EQUAL JO 
S$ERFLG EXIT IS TO THE NEXT TEST. 

i CALL 

; FILL DPB 

: JER RO,DRYCAL 


SEQ 0135 
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APT “OMMUNICATIONS ROUTINE SEQ 017 
353 : RE TURN 
4 
355 031204 005637 001222 DRVCAL: CLR SESCAPE ;NO_ESCAPE ADDRESS 
356 031210 005037 001434 CLR WCEFLG TCLEAR WRITE CHE(K ERROR FLAG 
357 031214 004037 041406 JSR RO, RMOS CALL RMOS DRIVER 
358 031220 047076 DTADPR 
359 031222 000770 BR DRVCAL 
361 031224 005737 047114 DRVCL1: TST DIADPH+16 ; DONE 
302 931230 001775 BEQ DRYCL1 ;NO==L OOP 
363 031232 100402 aMI 1$ ZBR IF ERRORS 
304 031234 000137 031776 JMP 15$ NO ERRORS 
365 031240 18: 
031260 012737 031346 001222 MOV W3S.SESCAPE ESCAPE TO 38 ON ERROR 
366 031246 013737 047110 001366 MOV DIADPB+12,CYL.DS ;CYLINDER 
031254 113737 047197 001372 MOVB —« DTADP8+11., TRK.DS ‘TRACK 
031262 113737 047106 001370 MOVB  DTADPB+10,SEC.DS SECTOR 
031270 012746 047114 MOV #DTADPB+ 16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
931274 004737 032170 JSR PC ,ERINDX FORM DISPATCH INDEX 
631300 062607 ADD (SP) +,PC [REPORT PROPER ERROR 
031302 104041 EMT 9 4t- :NON-EXIST DRIVE 
031304 104042 EMT 42 PARITY ERROR 
031306 104043 EMT 43 UNSAFE ERROR 
031310 104044 EMT 44 :NON-1/0 ERROR 
367 031312 000240 NOP :T0 SYN THE CALLING SEQ OF THE ERINDX: 
368 031314 005737 047154 TST RM.REG+RMER]  SANY DRIVE ERROR ? 
369 031320 001011 BNE 2$ REPORT THE 1/0 ERROR IF SO 
370 031322 032737 100000 047202 BIT BSE .RM.REG*+RMER2 ;BAD SPOT ERROR ? 
371 031330 001405 BEQ 2$ BRANCH IF NOT 
372 031332 012737 177777 001466 MOV #1 ,BASFLG SET BAD SECTOR ENCOUNTER FLAG 
373 031340 000137 031776 JMP 15$ SOTHERWISE .DON'T REPORT THE BSE 
374 031344 2s: 
031344 104045 EMT 45 ;1/0 ERROR 
375 031346 122737 000020 001116 38: CMPB #20, STSTNM TEST 20? 
376 031354 001170 BNE 11$ ?NO= BRANCH 
377 031356 013746 047114 MOV DTADPB+16,-<5P) :STATUS WORD 
378 031362 004737 032130 JSR PC,LOP.CK :SEE IF LOGP, ABGRT, OR CONTINUE 
379 031365 122737 000151 047100 CMPB = #WRCKD ,DTADPB+2 :DOING A WRITE CHECK? 
380 031374 001172 BNE 13$ :NO~ CH 
381 031376 032737 040000 047150 BIT #B1T14,RM.REG*+10 31S "WCE''=1? 
382 031404 001566 BEO 138 ;NO~-SRANCH 
383 031406 032777 000020 147540 BIT #SWO04,aSWR ZINHIBIT WRITES? 
384 031414 001162 BNE 13$ : YES~-BRANCH 
385 031415 112737 009161 047100 MOVB = #WRITE,DTADPB+2 :SETUP FOR A WRITE 
386 931424 005037 001222 CLR SESCAPE ;NO ESCAPE ADDRESS 
387 931430 004037 041406 JSR RO.RMOS :DO THE WRITE 
388 031436 047076 DIADPB 
389 031436 000240 NOP 
390 031440 005737 047114 4$: TST DIADPB+16 ; DONE? 
397 031444 001775 BEQ 4$ ;NO~~LOOP 
392 031446 100043 BPL 6$ :YES--BRANCH IF NO ERROR 
393 031450 012737 031736 001222 MOV #IIS,SESCAPE — ;;ESCAPE TO 11% ON ERROR 
394 031456 013737 047110 001366 MOV DIADPB+12,CYL.DS CYLINDER 
031464 113737 047107 001372 MOVB = DTADPB+11, TRK.DS : TRACK 
031472 113737 047106 001370 MOVB = DTADPB+10,SEC.DS SECTOR 
031500 012746 047114 MOV #DTADPB+ 16, ~ (SP) STATUS/ERROR INDICATOR ADDRESS 


051504 004737 32170 JSR PC,ERINDX FORM DISPATCH INDEX 
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APT COMMUNICATIONS ROUTINE SEQ 01% 
031510 062607 ADD (SP) +,PC REPORT PROPER ERROR 
Q31512 104041 EMT 41 sNONEXIST DRIVE 
031514 164042 EMT 42 PARITY ERROR 
031516 104043 EMT 43 UNSAFE ERROR 
031520 104044 EMT 44 SNON-I/0 ERROR 
395 031522 000240 NOP 7TO SYN THE pantie SEQ OF ERINDx 
396 031524 005737 047154 TST RM.REG+RMER1 ZANY DRIVE ERROR ? 
397 031530 01011 ; BNE 5$ BRANCH IF SO 
398 031532 032737 100000 047202 BIT #BSE .RM.REG*RMERZ ;BAD SOPT ERROR 
399 031540 001405 BEQ 5$ ;BRANCH IF NOT 
400 037542 012737 377777 001466 MOV #-1,BASFLG 7SET BAD SECTOR ENCOUNTER FL 4G 
401 031550 000137 031776 vMP 15$ EXIT 
402 031554 5$: 
031554 104045 EMT 45 :J/0 ERROR 
403 031556 112737 G00151 047100 6$: MOV8 HWRCKD,DTADPA+2 :COMMAND=WRITE CHECK DATA 
404 031564 004037 041406 JSR RO,RMO5S 7D0 THE WRITE CHECK 
405 031570 047076 DTADPB 
406 031572 000240 NOP 
407 031574 005737 047114 7$: TST DTADPB+16 3: DONE ? 
408 031600 001775 BEQ 7$ 7NO-~LOOP 
409 031602 100416 BM] 9$ 3 YES--BRANCH IF ERROR 
410 031604 004037 041406 JSR RO,RMOS 3D0 A 2ND WRITE CHECK 
411 031610 047076 DTADPB 
412 031612 000240 NOP 
413 031614 005737 047114 8$: TST DTADPB+16 ; DONE ? 
414 031620 001775 BEQ 8$ :NO--L OOP 
415 031622 100065 BPL 15$ 7 YES--BRANCH IF NO ERROR 
416 031624 012737 000001 001434 9$: MOV #1, WCEFLG SET THE WRITE CHECK ERROR FLAG 
417 031632 012737 031736 001222 MOV #11$,SESCAPE Z;ESCAPE TO 11$ ON ERROR 
418 031640 013737 047110 001366 MOV DTADPB+12,CYL.DS CYLINDER 
031646 113737 047107 001372 MOVB DTADPB+11,TRK.DS > TRACK 
031654 «113737 047106 001370 MOVB DTADPB+10,SEC.DS SECTOR 
031662 012746 047114 MOV ADTADPB+16,-(SP) sSTATUS/ERROR INDICATOR ADDRESS 
031666 004737 032170 JSR PC, ERINDX :FORM DISPATCH INDEX 
031672 062607 ADD (SP) +,PC REPORT PROPER ERROR 
031674 104041 EMT 41 sNON-EXIST DRIVE 
031676 104042 EMT 42 PARITY ERROR 
0317090 104043 EMT 43 UNSAFE FRROR 
031702 104044 EMT 44 3;NON-I/0_ ERROR 
419 031704 000240 NOP 350 SYN THE CALLING SEQ OF ERINDX: 
420 031706 005737 047154 TST RM.REG+RMER1 TANY DRIVE eo 
421 031712 001010 BNE 10$ BRANCH IF 
422 031714 032737 100000 9047202 BIT #BSE .RM.REG*RMERZ BAD SOPT ERROR ? 
423 031722 001404 BEQ 10$ BRANCH IF NOT 
424 031724 012737 177777 001466 MOV #~) ,BASFLG 3SET BAD SECTOR ENCCUNTER FLAG 
425 031732 000421 BR 15$ SOTHERWISE EXIT 
426 031734 108: 
031734 104046 EMT 46 REPORT THE FATAL me CHECK ERROR 
427 031736 032737 040006 047202 118: BIT et REG+RMER2 3SKI ERROR 
428 031744 001402 BEQ es ;BR IF NO 
429 031746 004037 032016 JSR RO. CALL.R "DO RECALIBRATE COMMAND 
430 031752 013746 047114 12$: MOV DTADPBSi6, -(SP) ;STATUS WORD 
431 031756 004737 032130 JSR PC,LOP.CK SEE IF LOOP, oe OR CONTINUE 
432 031762 123737 001464 0011'7 138: CMPB ERR.CT,SERFLG ;GO TO ni TEST? 
433 031770 101002 BHI 15$ :NO--BRAN 
434 931772 013700 001350 148: MOV BYPASS ,rO > YES--GET EXIT ADDRESS 
435 031776 032737 040000 001314 15$: BIT ASW14,C.SWR STALL? 


CZRMVBO RMOS/3/2 EXT'D DOR TST 
APT COMMUNICATIONS ROUTINE 


436 
437 
438 
439 
445 
44° 

442 
443 
444 


| 472 
473 
474 
475 
476 
i 477 
: 478 
479 


032004 
032006 
0320°2 
032014 


032016 


032126 


032130 
032136 


032156 


032160 
032164 
032166 


091403 
004037 
001456 
000200 


005037 
004037 


000200 


032777 


001402 


000137 
012616 
000207 


32326 


001 2e2 
041406 


047134 


032116 
047130 
047127 
047126 
047134 
032176 


047034 
032130 


001000 
146760 


001222 
072006 


021334 


MACRG V04.00 


VO1e2¢ 
001366 
00° 372 
001370 


147016 


000002 


BEQ 
JSR 
ORD 


ow 
16$: RTS 


16$ 

RO, STALL 
STALL2 
RO 
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SEQ 0135 


7NO--BRANCH 
ZYES==CALL STALL ROUTINE 
STALL TIME POINTER 


THIS ROUTINE WILL ISSUE A RECALIBRATE COMMAND TO THE RMOS DRIVER 
AND WAIT FCR THE FUNCTION TO COMPLETE. 


s CALL 


JSR 
: RE TURN 


CALL.R: CLR 
JSR 
DPB.R 
BR 


1$: TST 


es: 
3$: 


STHIS .JBROUTINE CHECK FOR eg yee 


ERRORS 41, 

ZCALL 

: MOV 

: JSR 
RETURN 


BIT 
BEQ 
JMP 
I$: CLR 
BIT 
BEQ 


JMP 
MOV 
RTS 


42, 


LOP.CK: 


2$: 


RO,CALL.R 


SESCAPE 
RO,RMOS 


CALL.R 
DPB.R+16 
1$ 


3$ 

#2$,SESCAPE 
DPB.R+12,CYL.DS 
CPB.R+11,TRK.DS 
DPB.R+10,SEC.DS 
#DPB.R+16,-(SP) 
PC .ERINDX 
(SP) +, PC 

41 

42 

43 

44 


DPB.A+16,~(SP) 
PC,LOP.CK 
RO 


43, 44, 45, 
DTA+16,-(SP) 
PC,LOP.CK 
ASW9,aSWR 
1$ 


a$LPERR 
SESCA 


$EOP 
(SP)+, (SP) 
PC 


PE LAG 
fei 6! 011171617 g1B1710181700!81700. CSP) 


sNO ESCAPE ADDRESS 
;CALL RMO5 DRIVER 


DONE? 

3NO-=-L OOP 

SBRANCH IF NO ERROR 

ZZESCAPE TO 2$ ON ERROR 

ZCYLINDER 

7 TRACK 

: SECTOR 

ZSTATUS/ERROR INDICATOR ADDRESS 
7FORM DISPATCH INDEX 

cREPORT PROPER ERROR 

ZNON-EXIST DRIVE 

zPARITY ERROR 

ZUNSAFE ERROR 

:NON-1/0 ERROR 

2T0 SYNC THE CALLING SEQ OF ERINDx 
SSTATUS WORD 

sSEE IF LOOP. ABORT. OR CONTINUE 
ZRETURN 


OR CONTINUE SWITCHES AFTER 


ZSTATUS WORD FROM DPB IN USE 


:LOOF ON ERROR 
sBR JF NOT 
Fae AT THE LOOP noe 
AR ERROR ESCAPE F 
> CHECK ERRO® TYPE 
BR IF DRIVE NOT OFFLINE, UNLOADED, OR 
PERSISTENT UNSAFF OR FATAL MASSBUS PARITY 
> TERMINATE DRIVE 
sADJUST RETURN ADDRESS 


THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 


3TO 


THE PROPER ERROR CALL. 


THE 


INDEX IS FORMED BY EXAMINING 


+ THE Ser eee SNES INDICATGR OF THE APPLICABLE DPB. 


7 INDEX 


STATUS/ERROR 


ween eewoenezeee® 


are RD 
a en em 
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APY’ COMMUNICATIONS ROUTINE SEQ 013% 
484 O BIT1I4'!RIT13'B] T08.B1101 
485 2 BIT11.BITIO'BITO2 
486 c 4 BIT12.BI1T04 
487 : 6 BITOS!BITC3. <BITO9 & COMMAND=NON~! /0> 
ies ce 10 BITO6.<BITO9 & COMMAND=1 /0> 
CALL 
490 7 JSR #DPB+16,-(SP) ZADDRESS OF STATUS/ERROR INDICATOR 
491 ; JSR PC,ERINDX 7FORM INDEX 
492 : RETURN INDEX IS ON THE STACK 
4 
494 032170 010046 j ERINDX: MOV RO,-(SP) SAVE RO 
495 0372172 010146 : MOV R1,-(SP) SAVE R1 
496 032174 016600 000006 MOV 64(SP) ,RO :GET STATUS/ERROR INDICATOR POINTER 
497 032200 011037 001356 MOV Oz een ;SAVE THE STATUS/ERROP INDICATOR 
498 032204 005001 CLR R1 START INDEX AT ZERO 
499 032206 032710 BIT (PC) +, (RO) FORM INDEX OF 0? 
500 032210 020402 . WORD 61173181108!B1 01 
501 032212 001037 BNE 5$ 7 YES--BRANCH 
502 032214 032710 BIT (PC) +, (RO) FORM P4RITY ERROR OR PORT REQUEST INDEX (2)? 
503 032216 006004 WORD 81711 !BIT10!B1T02 
504 032220 001033 BNE 4$ YES--BRANCH 
505 032222 032710 BIT (PC) +, (RO) “FORM UNSAFE INDEX (4)? 
506 032224 050020 WORD BIT14'BIT12'BIT04 
507 032226 001027 BNE 3$ 7 YES--BRANCH 
508 032230 032710 BIT (PC) +, (RO) *F ORM NON~I/0 ERROR INDEX (6)? 
509 032232 000050 -WORD BITCS!BITO3 
510 032234 001023 BNE es 7 YES--BRANCH 
511 032236 052710 BIT (PC) +, (RO) zFORM 1/0 ERROR INDEX (10)? 
512 032240 000100 -WORD 8I1T06 
513 032242 001017 BNE 1$ 3 YES~-BRANCH 
514 032244 032710 BIT (PC) +, (RO) : SOFTWARE TIMEOUT? 
515 032246 001000 .WORD BITO9 
516 032250 001420 BEQ 5$ ZNO--FORM INDEX OF 0 
517 032252 122760 000150 177762 CMPB #150,-16(k0) :YES~-1/0? 
518 032260 003011 8GT 2$ ;NO--BRANCH 
519 032262 005737 047154 TST a REG+*+RMER1 ANY DRIVE ERROR ? 
520 032266 001005 BNE 1$ “BRANCH IF SO 
521 032270 032737 100000 047202 BIT #BSE.RM. REG+RMER2 3BSE ERROR 
522 032276 001401 BEG 1$ :BRANCH IF NOT 
523 032300 005201 INC R1 SKIP , NOT REPORT BSE ERROR 
524 032302 005201 1$: INC R1 + INDEX=10---ERROR=45 OR 46 
525 032304 005201 es: INC R1  INDEX=6~--ERROR=446 
526 032306 005201 3$: INC R1 > INDEX=4-~-ERROR=43 
527 032310 005201 4$: INC R1 3 INDEX=2---ERROR=42 
528 032312 006301 S$: ASL R1 : INDEX=0---ERROR=41 
529 032314 010166 000006 MOV R1,6(SP) :RETURN INDEX TO USER 
530 032320 012601 MOV (SP) +,81 RESTORE R1 
531 032322 012600 MOV (SP) +,RO RESTORE RO 
oe 032324 000207 RTS PC RETURN FROM CALI 
5% Z THIS ROUFINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
535 * AMOUNT OF TIME IF BIT13 OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
536 zIF BIT 13 OF C.SWR = 1. 
537 *STACLI CONTAING SPECIFIED TIME FOR TESTS 0 - 7, AND STALL2 
538 :CONTAINS THE TIME FOR TESTS 16-21. 
539 CALL 
540 : JSR RO,STALL 


CZRMVBO °%M05/%3/2 EXT'D DR TS* 
APT COMMUNICATIONS ROUTINE 


$43 Bsoea0 


| 566 032410 
567 032412 
568 032414 
569 032422 
570 032430 
571 032432 
572 032436 
573 032440 


Pe 032556 


000200 


010146 


0 
000200 


020000 


026426 
026526 
177700 


000901 
000144 
000000 


150900 
054522 


054524 


054522 
054525 
054524 
901370 
001372 
001366 
032510 


000107 
030402 
001222 
001000 


146362 
000002 
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001314 


000002 


054522 
000902 


001360 
001362 
001364 


001222 


047020 


146420 


TIME POINTER 


STALL: MOV a(RO)+,-(SP) 
BIT #SW13,C.SWR 
BEQ 1$ 
JSR PC, $RAND 
MOV $LONJM, (SP) 
BIC #°C77, (SP) 

1$: CLR ~-(SP) 

es: SUB #1,2(SP) 
BLO 48° 
MOV #100. , (SF) 

3$: TST RO 
DEC O(SP) 
BNE 3$ 
BR 2s 

4$: CMP (SP)+,(SP)+ 
RTS RO 

: JSR RO, VERIFY 

; ADR POINTER 

7 RETURN 

VERIFY: MOV R1, on 
MOV Rabe R 


BIC #150000, BUFFER 
CMP BUFFER, 2(R1) 


BNE 1$ 
CMP BUFFER+2, (R1) 
BEQ 3$ 

1$: MOV BUFFER, CYL .RD 


MOVB = BUFFER*+3, TRK.RD 
MOVB —«- BUFFER+2.,SEC.RD 
MOVB —- (R1) +, SEC.DS 
MOVB = (R1) +. TRK.DS 
MOV (R1),CYL.DS 

MCV #2$, SESCAPE 


TST (RO) 
EMT 12 
2$: MOV MRECAL, ae Ate 


BIT pave seen 


BEQ $ 

JMP @SLPERR 
3$: ADD #2,R0 
4$: MOV (SP)+,R1 

RTS RO 


SEQ 014~ 


WHERE TO FIND THE STALL TIME 


sPICKUP STALL TIME 

sUSE A RANDOM TIME? 
;NO--BRANCH 

7: YES=--FORM RANDOM NUMBER 

;AND USE IT FOR THE STALL TIME 
:6UT NEVER > 464 MILLISECONDS 
:CLEAR TEMP. LOCATION 

sMORE STALL REQUIRED? 
7NO--BRANCH 

STALL FOR ABOUT 1 MILLISECOND 
zNOP TO KILL TIME 


2 COUNT 
:LOOP IF MORE COUNTS NEEDED 


CLEAN OFF THE STACK 
XIT 


. 
’ 


Slee TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


ADDRESS OF DPB+10 (SECTOR NUMBER) 


SAVE R1 

:GET ADDRESS OF DPB+10 

:STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
SCYLINDER NUMBER OK? 

*NO--BRANCH 

sYES--HOW ABOUT TRACK/SECTOR? 

“BRANCH IF GOOD 

+ SAVE THE EXPECTED AND THe 

cRECIEVED CYLINDER, TRACK, 

ZAND SECTOR 


scESCAPE TO 2$ ON ERROR 
MAKE IT TEST PC+4 

IMPROPER HEADER DATA 

TLOAD RECALIBRATE ORDER CODE 
3GO EXECUTE THE COMMAND 
CLEAR ERROR ESCAPE FLAG 
:LOOP ON ERROR a 


;BR_IF NOT 
RETURN TO ERROR {oop ADDRESS 
INCREMENT RETURN’ ADDRESS 
ZRESTORE R1 : 

sEXIT j 


s THIS ROUTINE WILL PERFORM A *MASSBUS'' INIT. FOLLOWED BY 
TA "RECALIBRATE’’ ON THE DRIVE UNDER TEST. 


INGTE: THIS ROUTINE DESTROYS R1 


CALL 
‘ JSR RO, SRCHOO 
RETURN! 


AND R4 


;00 A MASSBUS INIT. AND RECAL 
RETURN HERE IF NO ERROR 
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APT COMMUNICATIONS ROUTINE SEQ 014) 
eas ‘ RE TURN2 ;RETURN HERE ON ERROR 
600 032552 065001 SRCHOO: CLR R1 : INCASE OF ERROR (TYPTIM) 
601 032554 005037 177776 CLR PS 
602 032560 012777 043306 006064 MOV AISR,ARMVEC ;SETUP INTERRUPT VECTOR 
603 032566 013704 040650 MOV RMADR,R4 sPICKUP ADDRESS OF RMCS1 
604 032572 012764 000049 000010 MOV ACLR,RMCS2(R4) ;MASSBUS INIT. 
605 032600 005037 047106 CLR DTADPB+10 ;TRACK=0; SECTOR=0 
606 032604 005037 047110 CLR DTADPB+12 :CYLINDER =0 
607 032610 012737 000107 047100 MOV ARECAL ,DTADPB+2 ; COMMAND = RECALIBRATE 
608 032616 005037 001222 CLR SESCAPE ZNO ESCAPE ADDRESS 
609 032622 004037 041406 JSR RO,RMOS :CALL THE DRIVER 
610 032626 047076 DTADPB :DPB POINTER 
611 032630 000440 BR 4$ SQUEUE 1S FULL 
612 032632 005737 047114 1$: TST DTADPB+16 ZWAIT ON DONE 
613 022636 001775 BEQ i$ 
614 032640 100030 BPL 3$ 7 TAKE NORMAL EXIT IF NO ERROR 
615 032642 012737 032716 001222 MOV H2$,$E SCAPE sz ESCAPE TO 2$ ON ERROR 
616 032650 013737 047110 001366 MOV DTADPB+12,CYL.DS ZCYLINDER 
632656 113737 047107 001372 MOVB DTADPB+11,TRK.DS : TRACK 
032664 113737 047106 001370 MOVB DTADPB+10,SEC.DS : SECTOR 
032672 012746 047114 MOV ADTADPB+16,-(SP) ZSTATUS/ERROR INDICATOR ADDRESS 
032676 004737 032170 JSR PC ,ERINDX SFORM DISPATCH INDEX 
032702 062607 ADD (SP) +,PC ;REPORT PROPER ERROR 
032704 104041 EMT 41 :NON-EXIST DRIVE 
032706 104042 EMT 42 ;PARITY ERROR 
032710 104043 EMT 43 Z UNSAFE ERROR 
032712 104044 EMT 44 :NON-1I/0 ERROR 
032714 104045 EMT 45 31/0 ERROR 
617 032716 005720 2s: TST (RO) + ZADJUST FOR ERROR EXIT 
618 032720 000404 BR 4$ :GO TO THE EXIT 
619 032722 005064 000006 3$: CLR RMDA(R4) : TRACK AND SECTOR Q 
620 032726 005064 000034 CLR RMDC (RG) :CYLINDER = 0 
oS) 032732 000200 4$: RTS RO SRETURN 
ro ZTHIS IS AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
oe 032734 000002 DORTI: RTI sRETURN FROM INTERRUPT 
ri ae ROUTINE WILL INITIALIZE THE TIMERS USED BY THE ‘TIMING ROUTINES 
e LAL 
629 : JSR PC.STRIMR 
630 : RETURN 
632 032736 104412 STRTMR: SAVREG : SAVE RO-R5 
633 932740 012700 001376 MOV ATIM.UP,RO :START AT TIM.UP 
634 032744 005020 1$: CLR (RO) + ;CLEAR THE TIME TABLES 
635 032746 020027 001432 CMP RO,ATIM.PT ; DONE? 
636 932752 103774 BLO 1$ -NO--BRANCH 
637 032754 012710 054522 MOV ABUFFER, (RO) 7SETUP POINTER 
638 032760 012737 077777 001376 MOV #*CB1T15, TIM.UP -SET MINIMUM TIME TO MAXIMUM 
639 032766 012737 077777 001414 MOV A*°CBIT15,TIM.DN ;POSITIVE NUMBER 
640 032774 104413 RESREG sRESTORE RO-R5 
on 032776 000207 RTS PC RETURN 
643 :THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 


644 MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
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APT COMMUNICATIONS ROUTINE SEQ O14, 


645 NOTE: THIS ROUTINE DESTROYS R2 
646 7 CALL 
647 : MOV MTP,R3 PARAMETER POINTER 
648 : MOV FLAG,R5 ;FLAG=0=COUNT UP 
649 : sFLAG=-1=COUNT DOWN 
650 3 JSR PC, COUNT 
ee i RETURN 
653 033000 012702 001376 COUNT: MOV MTIM.UP,R2 PICKUP THE ‘UP’' POINTFR 
654 033 005705 TST R5 sUSE IT? 
655 033 001402 BEQ 1$ 7 YES-~BRANCH 
656 033010 012702 001414 MOV ATIM.DN,R2 sNO--PICKUP *DOWN'’ POINTER 
657 033014 027722 146500 1$: CMP APKC, (RE) + sLESS THAN PREVIOUS LOW? 
658 033020 002003 BGE 2s 3NO=-BRANCH 
659 033022 017762 146472 177776 MOV aPKC ,~2 (Re? 7 YES--SAVE IT 
660 033030 027763 146464 000004 2$: CMP aPKC ,4(R3) LESS THAN THE LOW LIMIT? 
661 033036 002001 BGE 3$ 7 NO--BRANCH 
662 033040 005212 INC (R2) 2YES=-COUNT IT 
663 033042 005722 3$: TST (R2) + ADVANCE THE POINTER 
664 633044 027722 146450 CMP aPKC, (R2) + GREATER THAN PREVIOUS HIGH? 
665 033050 003403 BLE 4$ 3NO--BRANCH 
033052 017762 146442 177776 MOV aPKC ,-2(R2) 7 YES=-SAVE IT 
667 033060 027763 146434 000006 4$: CMP aPKC ,6(R3) GREATER THAN THE HIGH LIMIT? 
033 003401 BLE 5$ 3 NO--BRANCH 
669 033070 005212 INC (R2) 3YES=--COUNT IT 
670 033072 005722 5$: TST (R2)+ ZSADVANCE THE POINTER 
671 033074 067722 146420 ADD aPKC, (R2)+ zADD THIS COUNT TO THE TOTAL 
672 033100 005522 ADC (R2)+ 
6/3 035102 005212 INC (R2) COUNT THIS READING 
674 033106 022737 063052 001432 CMP WBUF FER+<4*B22.>, TIM. PT ;SAVE THIS COUNT? 
675 033112 101406 BLOS 6$ 3 CH 
676 033114 017777 146400 146310 MOV @PKC ,aTIM.PT  YES=-WELL SAVE IT THEN 
677 033122 062737 000002 001432 ADD #2,TIM.PT SADVANCE THE POINTER 
nee 033130 000207 6$: RTS PC RETURN 
oy te ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 
2 CALL 
682 . JSR RO,SPTYP 
ay : TABLE ADDRESS 
685 TABLE «WORD ASCIZ MESSAGE POINTER 
686 3 -WORD MIN VALUE 
rat ; -WORD MAX VALUE 
689 033132 012002 SPTYP: MOV (RO) +,R2 2 THE TABLE ADDRESS 
690 033134 032777 000100 146012 BIT #SWO6,ASWR ;ALLOW PRINT 
691 033142 001035 BNE 3$ sEXIT IF NOT 
692 033144 104401 001231 TYPE »SCRLF 
693 033150 104401 001231 TYPE - $CRLF 
694 033154 012237 033162 MOV (R2)+,1$ : 
695 933160 104401 - TYPE 
696 033162 0 1$: -WORD 0 
697 033164 012246 MOV (R2)+,-(SP) s;LOAD MIN VALUE 
698 033166 001410 BEQ 2s SKIP IF MIN VALUE IS 0 
699 033170 104401 050166 TYPE -MSGMIN 
700 033174 004737 026136 JSR PC, $SB2D CONVERT TO DECIMAL 
701 033200 004737 026366 JSR PC, $SUPRS TYPE IT 


CZRMVBO RMOS/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUTINE 


702 033204 


708 033232 


728 033240 


033366 


104401 
104401 


000200 


010246 
010346 


010346 
004737 


050210 
650174 


026136 
026366 


050210 
001231 


000100 
033502 


001376 


000014 
050166 
026136 


026366 
050210 


050345 
177776 


050215 
026136 
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SEQ 0143 
TYPE »MSGOUS 70 US 
es: TYPE ~MSGMAX 3 
MOV (R2) ,~-(SP) 7MAXMUM VALUE 
JSR PC,$S62D ; 
JSR PC ,$SUPRS : 
TYPE »MSGOUS ; 
TYPE »$CRLF :CR-Lt 
3$: RTS RO : 


3THIS ROUTINE IS USED TO TYPE THE MINIMUM, 
“MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 
1T WILL ALSO CHECK THE TIMES TO ENSURE 


TTHEY ARE WITHIN TOLERANCE AND_IF NOT FLAG THE BAD TIMES. 


:NOTE THIS ROUTINE DESTROYS R2=R5 
3 CAL 
JSR RO, TYPTIM :GO REPORT THE TIMES 
TABLE sPOINT TO THE PROPER TABLE 
; RETURN 
: TABLE: MSGADR1 sADDRESS QF ASCIZ MESSACE NUMRER 1 
: MSGADR2 ZADDRESS OF ASCIZ MESSAGE NUMBER 2 
: MIN.ALLOWED sMINIMUM TIME ALLOWED 
: MAX .ALLOWED ZMAXIMUM TIME ALLOWED 
TYPTIM: 
MOV R2,~(SP) 7ZzPUSH R2 ON STACK 
MOV R3,~(SP) 72PUSH R3 ON STACK 
MOV R4,~(SP) 7ZPUSH R4 ON STACK 
MOV R5,-(SP) 3zPUSH R5 ON STACK 
MOV (RQ) +,R2 ;PICKUP THE TABLE POINTER 
145674 BIT #SWO6,aSWR : INHIBIT TIME REPORTS? 
BNE o$ TYES~ CH 
MOV (R2)+,2$ ‘ADDRESS OF MESSAGE NUMBER 1 
MOV (R2)+,R5 “ADDRESS OF MESSAGE NUMBER 2 
MOV (R2)+,R3 *PICKUP THE LOW LIMIT 
MOV {R2) ,R2 ZAND THE HIGH LIMIT 
MOV #TIM.UP,RS sPARAMETER POINTER 
1$ TYPE sTYPE THE MESSAGE 
es -WORD 0 TASCIZ MESSAGE POINTER GOES HERE 
TST 14(R4) DID ANY COUNTS OCCUR? 
BEQ 8$ NO--BRANCH 
TYPE -MSGMIN MINE" 
MOV (R4)+,-(SP) :PUT (R4)+ ON THE STACK 
JSR PC,$SB2D sCHANGE TO DECIMAL ASCIZ 
JSR PC, $SUPRS i FrPE WITHOUT LEADING ZEROS 
TYPE -MSGOUS 70 Us" 
TST (R4)+ ‘ANY SEEKS BELOW THE LOW LIMIT 
BEQ “NO--BRANCH 


3$ 
TYPE eBLNKS2 


STYPE 2 SPACES 


MOV -2(R4) ,-(SP) 3;PUT -2(R4) ON THE STACK 
JSR PC ,$SB2D ; CHANGE TO DECIMAL ASCIZ 
JSR PC,$SUPRS TYPE WITHOUT LEADING ZEROS 
TYPE -MBELOW :"BELOW THE MINIMUM OF"' 

MOV R3,-(SP) :PUT R3 ON THE STACK 

JSR PC, $SB2D [CHANGE TO DECIMAL ASCIZ 


“ZRMVBO RMO2/3/2 EXT*D 


Ap’ 


750 
751 
752 


033372 


033570 
033574 


C33600 
033602 


033622 


004737 
104401 


012605 
012604 
12603 
012602 
000200 


DR rst 


COMMUNICATIONS ROUTINE 


026366 
C50210 
050174 
026136 
026366 
050210 
050345 
177776 


050202 


026530 
026136 
026366 


026366 
000012 


050313 
050273 
033302 


05330 
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001116 


J5R 
TYPE 
3$: TYPE 
MOV 
JSR 
JSR 
TYPE 
TST 
BEOQ 
TYPE 
MOV 
JSR 
JSR 
TYPE 
MOV 
JSR 
JSR 
TYPE 
4$: ~YPE 


BR 
6$: TYPE 
7$: MOV 


BR 
8$: TYPE 
9$: 


THIS SUBROUTINE WILL INCREMENT 


PC ,SSUPRS 
»@SGOuUS 
GMA 


AS x 
(R4&) +, =(SP) 
PC ,$SB2D 
PC, $SUPRS 
.MSGOUS 
(R&)+ 

4$ 


JBUNKS2 
=2(R4), =(SP) 
PC ,$SBeD 
PC > $SUPRS 
MABO 


(RG) *,=(SP) 
(RS) + ,=(SP) 
(RG). ~(SP) 
PC,$DIiv 
(SP)¢ 

5$ 

(SP) 


PC, $SB2D 

PC, SSUPRS 

»MSGOUS 

»-BLNKS2 

me 
C,$SB2D 


PE SSUPRS 
#12,$TSTNM 
6$ 


MSGNUM 
7$ 
-MSGSEA 
R5,28 
9S 


(SP) +,R5 
(SP)+,RG 
(SP) +,R3 
(SP) + .R2 
RO 


iTYPE wITHOu' 


+ CHANGE 
STYPE WITHOUT LEADING ZERNS 


SEQ 91h, 
LEADINn ZEROS 


cl X= ee 


“PUT (R4)* ON THE STACK 


s CHANGE TO DECIMAL ASCIZ 


STYPE WITHOUT LEADING ZEROS 


ZANY SEEKS ABOVE THE wWIGH IMI! 


7NO--BRANCH 
ar 2 SPACES 


T -2(R4&) ON THE STACK 
: CHANGE TO DECIMAL ASCIZ 
sTYPE WITHOUT LEADING ZEQ0S 
[ABOVE THE MAXIMUM OF'’ 
:PUT Re ON THE STACK 
TO DECIMAL ASCIZ 


A 
ZFORM THE AVERAGE 


1S THE REMAINDER OVER HALF ~ 


7NO--BRANCH 


: VES=-ROUND UP 


2 CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 


TYPE 2 SPACES 

[PUT =2(R4) ON THE STACK 

7 CHANGE TO DECIMAL ASCIZ 

7 TYPE WITHOUT LEADING ZEROS 
TEST ie 

[ BRANC H so 

7 TYPE SEEKS TIMED'* 

TYPE it 
STYPE "SEARCHES TIMED’ 


NEXT MESSAGE POINTER 
z1F NONE EXIT 
ZNO MORE THAN 2 


77;POP STACK INTO RS 
:2POP STACK INTO RG 
::POP STACK INTO R3 

er STACK INTO R2 


THE TRACK 


NUMBER (R2) By THE AMOUNT SPECIFIED BY “IT*. 


7 CALL 
: JSR 


RE TURNT 


RO, INCTRK 


TRACK NUMBER GREATER THAN LT1S 


033704 
033712 
033716 


829 033720 


033726 


033730 


033760 


020237 
001410 
063702 


020137 
0074106 
963701 
020137 
00 


1137A6 


103367 


rZRMVBO RMOS/3/2 FXT'D OR TST 
APT COMMUNICATIONS ROUTINE 


002350 


002352 
002350 


002350 


002342 


002344 
002342 


002342 


047146 
000002 


002470 


054522 
000400 


002470 
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000002 


000002 


: RETURN2 STRACK NUMBER INCRFMEATED 
INCTRK: CMP R2,.T sLAST TRACK COMPLETED? 

BEQ 2$ J VES@nEXIT 

ADD 1T,R2 iNO=<UPDATE TRACK 

CMP R2,LT sTRACK TO BIG? 

BLE 1$ iNO--EXIT 

MOV LY,Re ZYES*-SET TRACK TO LAST TRACK 
1$: TST (RO) + sADJUST FOR RETURN 2 


es: RTS RO RETURN 


THIS SUBROUTINE WILL INCREMENT THE CYLINDER 
;NUMBER (R1) BY THE AMOUNT SPECIFIED BY ‘IC’. 


7 CALL 
: JSR RO, INCCYL 
RE TURN s CYLINDER NUMBER GREATER THAN LC15 
: RETURN2 sCYLINDER NUMBER INCREMENTED 
INCCYL: CMP R1,LC sLAST CYLINDER COMPLETED? 
BEQ es 2 YES@-EXIT 
ADD 'C,R1 sNO=-UPDATE CYLINDER 
CMP R1,LC i CYLINDER TO BIG? 
BLE 1$ sNO--EXIT 
MOV LC,R1 ZYES--SET CYLINDER TO LAST CYLINDER 
1$: TST (RO) + ADJUST FOR RETURN 2 
es: RTS RO RETURN 
STALE ROUTINE DECREMENTS THE SECTOR ADDRESS. 
; CLR ~(SP) SCLEAR THE STACK 
: JSR PC ,DECSEC ; SUBROUTINE ENTRY 
: RE TURN 
DECSEC: MOVB RM, rns 2(SP) sPUT THE SECTOR ADDRFSS ON THE STACK 
DEC 2(SP) ZDECREMENT THE ADDRESS 
BPL 1$ 7BR_IF NOT CORRECTION NEEDED 
MOV PRMLMT+24,2°SP) ;OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 
1$: RTS PC 3 RETURN 


7 THIS SUBROUTINE IS USED TO FILL THE DATA BUFFER 
sWITH ADDRESSES FROM 0 TO 31 WITH EACH ADDRESS 
sBEING STORED IN 256 CONSECUTIVE LOCATIONS 


CALL 
: JSR PCF ILBUF 
: RE TURN 
Fil BUF: SAVREG :SAVE RO - R5 
CLR RO SFIRST DISK ADDRESS 
MOV WBUEFER R1 ‘START FILLING HERE 
1$: MOV ;RO *DO 256 WORDS 
2$: MOV ao ee * STORE 
DEC R2 MORE 3 
BGT 2$ : YES--BRANCH 
INC RO :NO~-UPDATE DISK ADDRESS 
CMP ORMLMT+24,R0 DONE ? 
BHIS  1$ “NO-<BRANCH 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUTINE 


&S 033762 
50 033764 


873 034032 


EREKEK 


104473 
000207 


104412 
012701 
012702 
012703 
010122 
010122 


104412 


011603 


020123 
001063 
020123 
001061 
020123 
601057 
020123 
001055 
020123 
001053 


001045 


177400 
054522 
114522 


000004 


054522 
000002 
000020 
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RESREG RESTORE RO - R5 
RTS PC RETURN 


sTHIS ROUTINE WILL CLEAR THE BUFFER BY 
SETTING EACH WORD TO ''177400"'” 
ALL 
: JSR RO, CLRBUF 
: RETURN 


CLRBUF: SAVREG 
MOV #177400,R1 
MOV AMBUFFER,R2 


SAVE RO - R5 


;WORD TO FILL BUFFER WITH 
sPIRST ADARESS OF BUFFER 
MOV WRUFFER+<512.*32.>,R3 ;LAST ADDRESS+2 OF Boe 


1$: MOV R1,(R2)+ :FILL WORDS 1, 9,...249, 625 
MOV R1,(R2)+ ZFILL WORDS 2,10,...250,...5626 
MOV R1,(R2)+ sFILL WORDS 3,11,...251,...5627 
MOV R1,(R2)+ sFILL WORDS 4,12,...252,...5628 
MOV R1,(R2)+ FILL WORDS 5,13,...253,...5629 
MOV R1,(R2)+ sFILL WORDS 6,14,...254,...5630 
MOV R1,(R2)+ FILL WORDS 7,15, St ee 5631 
MOV R1,(R2)+ sFILL WORDS 8,15,...256,...5632 
CMP R2,R3 ; DONE ? 
BLO 1$ :NO--BRANCH 
RESREG sRESTORE RO ~ RS5 
RTS RO RETURN FROM CALL 

THIS ROUTINE IS USED 10 CHECK THE DATA BUFFER 

FOR ADDRESSES 0 THROUGH 31 WITH EACH ADDRESS 

ath STORED IN 256 CONSECUTIVE LOCATIONS 

: JSR RO, CKSCTR 

: RETURN 

CKSCTR: SAVREG SAVE RO - RS 
SUB #4 SP sRESERVE TEMP. STORAGE AREA 
CLR R1 zFIRST SECTOR 
MOV BUFFER, (SP) FIRST ADDRESS OF DATA BUFFER 
CLR 2(SP) NO ERRORS 

1$: MOV #16. ,R2 :LOOP COUNT (16*16=256) 


$ MOV (SP) ,R3 
CMP R1,(R3)+ sWORD 3 
BNE 7$ BRANCH IF BAD 
CMP R1,(R3)+ WORD 2 
BNE 7$ 3BRANCH IF BAD 
CMP R1,(R3)+ WORD 3 
BNE 7$ BRANCH IF BAD 
CMP R1,(R3)+ WORD 4 
BNE 7$ ;BRANCH IF BAD 
CMP R1,(R3)+ WORD 5 
BNE 7$ ;BRANCH IF BAD 
CMP R1,(R3)+ WORD 6 
BNE 7$ BRANCH IF BAD 
CMP R1,(R3)+ sWORD 7 
BNE 7$ BRANCH IF BAD 
CMP R1,(R3)+ WORD 8 
BNE 7$ ;BRANCH IF BAD 


:GET 1ST ADDRESS OF THIS SECTORS DATA 


SEQ 0146 


“7RMVBO RMO5/3/2 EXT'D DR TS’ 
APT COMMUNICATIONS ROUTINE 


034*22 
034124 
034126 

30 


034360 
034362 


20123 


000404 


012737 


001000 
002470 
000002 
001464 


601350 
000004 


177740 
000040 
034062 
177776 
000002 
047110 
047107 
034324 


000002 


034342 
001060 
000002 
001464 
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00°17? 


001142 


001366 
001372 
001222 


001222 
144604 
144574 
NQ117 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


CMP 
BNE 


R1,(R3)+ 
7$ 
R1,(R3)¢ 
7$ 
R1,(R3)+ 
7$ 
R1,(R3)+¢ 
7$ 
R1,(R3)+¢ 
7$ 
R1,(R3)+¢ 
7$ 
R1,(R3)+ 
7$ 
R1,(R3)+ 
7$ 

R2 

2s 
#512. , (SP) 
R1 
pariatenant 
2(SP) 

6 
ERR.CT,SERFLG 
6$ 

BYPASS ,RO 
44,5P 


RO 

R3,R4 
(SP) RS 
R4 RS 

R4 
#*C37,R5 
8s. 
#40,R5 
R5 
#2$,R5 
-2(R3) , SBDDAT 
2(SP) 
10$ 


DTADPB+12,CYL.DS 
DIADPB+11,TRK.DS 


HOS, SESCAPE 
21 

2(SP) 

11$ 

#118, SESCAPE 
22 

#Sw09, aSWR 

5$ 

#SWOT,aSWR 

4$ 
ERR.CT,SERFLG 


WORD 9 


SBRANCH iF 
ZWORD 16 
;BRANCH IF 


BAS 
BAD 
BAD 
BAD 
BAD 
BAD 
BAD 


SEQ 014. 


BAD 
SFINISHED WITH THIS SECTORS CATA? 
ZNO-=-BRANCH 
ZYES@--F IRST ADDRESS OF NEXT SECTC? 


sMOVE TO NEXT SECTOR 
; DONE ? 


3 NO~-BRANCH 
ZsERROR OCCUR? 
7NO--BRANCH 
sMAX. ERROR OCCURRED’ 
7NO--BRANCH 


TAKE ERROR EXIT 
FREE TEMP, AREA 
RESTORE RO - R5 
Ma FROM CALL 
FORM WORD NUMBER 


AND 


TADDRESS TO CONTINUE FROM 
;WORD NUMBER 
sBRANCH IF NOT A MULTIPLE OF 16 


sSET TO WORD 16 


ADDRESS 


SAVE BAD DATA 


FIRST ERROR? 
=NO--BRANCH 


sCYLINDER NUMBER 


; TRACK NUMBER 
: ESCAPE TO 9$ ON ERROR 
SDATA COMPARE FAILURE 


:SET ERROR SWITCH 


7zESCAPE TO 11$ ON ERROR 


FOLLOWS EMT 21 
= LOOP ON ERROR? 


YES 
“STOP DATA COMPARE 7 


SYES=-BRANCH 
MAX. ERRORS? 


“7R™VB) RMO5/3/2 EXT'D DR TST 
AP’ COMMUNICATIONS ROUTINE 


101773 
032777 
001272 
G00115 


104412 


6 
016003 


162321 
001044 
162321 
001042 
162321 
001049 
162321 
00°536 


600040 


054522 
047102 
003536 


000020 


954522 
047102 


003536 


F 
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144554 


BLOS 
BI) 
BNE 
JMP 


5$ 

#Sw05 ,aSwR 
3$ 

(R5) 


+ YES--BRANCH 


SREPORT ONLY 1ST ERROR PER SECTOR? 


2 YES+-BRANCH 


THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
;DESTRED PATTERN INTO THE DATA BUFFER. 


CALL 


. 
, 


SE TBUF : 


"$: 


MOV 
JSR 


SAVREG 
M 


BN 
RESREG 
RTS 


#NX RO 
PC, SE TBUF 


ABUFFER,R1 
DTADPB+4 ,R2 


PAT.PT(RQ) ,R3 


(R3)+,(R1)¢ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(Rid+ 
(R34, (R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)¢ 
(R3)+4+,(R1)¢ 
(R3)+,(R1)+ 
(R3)+,(R1)¢ 
(R3)+,(R1)+ 
(R3)4,(R1)+ 
(R3)+,(R1)+ 
{(R3)4,(R1)+ 


#16.,R2 ;DONE? 


1$ 
PC 


3 
4 
5 
6 
; ? 
MOVE WORD : 
7 
1 
1 
1 
1 
1 
1 


SAVE RO ~ R5 


‘FIRST ADDRESS 


:WORD COUNT 


0 
1 
2 
3 
14 
5 
6 


3NO-~BRANCH 
RESTORE RO - 
7RETURN 


THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
AGAINST THE DATA BUFFER 


CALL 


MOV 
JSR 
RETURN 


: SAVREG 
MOV 


MOV 
CLR 
MOV 


H#NX 20 
PC, DATCMP 


#BUFFER,R1 
DTADPB+4 ,R2 


-(SP) 
PAT.PT(RO) ,R3 


(R3)+,(R1)+¢ 
4$ 
(R3)¢,(R1)+ 
4$ 
eres 
(R3)+,(R1)¢ 
4$ 


SAVE RO ~ R5 


[PICKUP PATTERN POINTER 
;MOVE WORD 1 | 
sMOVE WORD 2 


NTO DATA 


PATTERN NUMBER INDEX TO RO 


BUFFER 


INTO DATA BUFFER 
INTO DATA BUFFER 
INTO DATA BUFFER 


INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 


R5 


DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 
DATA BUFFER 


PATTERN NUMBER INDEX TO RO 


SFIRST ADDRESS OF BUFFER 


: WORD COUNT 
;NO_ERROR 
SPATTERN POIN 


CHECK WORD 1 
BRANCH IF DIFFERENT 
CHECK WORD 2 


TER 


;BRANCH IF DIFFERENT 


CHECK WORD 3 


SBRANCH IF een, 


CHECK WORD 4 


SBRANCH IF DIFFERENT 


SEQ 0146 


ZRM,BO RMOS/3/2 EXT'D OR TST 
SE*  OMMUNICATIONS ROUTINE 
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034534 162321 SUB (R3)¢,(R1)¢ sCHECK WORD 5 
034536 001034 BNE 4$ SHRANCH oe DIFFERENT 
034540 162321 SUB (R3)¢,(R1)¢ : CHECK WORD 6 
034542 001032 BNE 4$ ‘BRANCH IF DIFFERENT 
034544 162321 SUB (R3)+,(R1)¢ i CHECK WORD 7 
034546 001030 BNE 4$ “BRANCH IF DIFFERENT 
034550 162321 SUB (R3)+,(R1)¢ CHECK WORD 8 
034552 001026 BNE 4$ ;BRANCH JF DIFFERENT 
034554 162321 SUB (R3)+, (R1)¢ CHECK WORD 9 
034556 001024 BNE 4 BRANCH Jt DIFFERENT 
034560 162321 SUB (R3)+,(R1)4 :C4ECK WORD 10 
034562 001022 BNE 4 ‘BRANCH IF D YF EERENT 
034564 162321 SUR (R3)+,(R1)¢ ZCHECK WORD 1 
034566 001020 BNE 4% [BRANCH IF DIFFERENT 
034570 162321 SUB (R3) +, (RI) : CHECK WORD 12 
034572 001016 BNE 4 “BRANCH IF DIEEERENE 
034574 162321 SUB (R3)+,(R1)¢ i CHECK WORD 13 
034576 001014 BNE 4$ “BRANCH IF DIFFERENT 
034600 162321 SUB (R3)+,(R1)¢ sCHECK WORD 14 
634602 001012 BNE 4t BRANCH IF eas 
034604 162321 SUB (R3)+,(81)¢ CHECK WORD 15 
034606 001010 BNE 4 BRANCH IF DIFFERENT 
034610 162321 SUB (R34, (R1b+ * CHE CK WORD 16 
034612 001006 BNE 4$ ‘BRANCH IF DIFFERENT 
973 934614 062702 000020 ADD #16. ,R2 ;DONE ? 
974 034620 001333 BNE 1$ ZNO--BRANCH 
975 034622 005726 3$: TST (SP) + SYES -- CLEAN UP STACK 
976 034624 104413 RESREG ZRESTORE RO - R5 
Be 034626 000207 RTS PC 
979 034630 010104 4$: MOY R1,R4 37FORM THE WORD NUMBFR 
980 034632 162704 054522 SUB ABUFFER,RS 
981 034636 006204 ASR R4 WORD NUMBER 
982 034640 010305 MOV R3,R5 ZFORM ADDRESS TO CONTINUE FROM 
983 034642 166005 003536 SUB PAT.PT(RO) RS 
984 034646 006305 ASL RS 
985 034650 062705 034514 ADD #2S,R5 ADDRESS 
986 034654 064341 ADD ~(R3) ,-(R1) SRECONSTRUCT THE BAD WORD 
987 034656 010137 001136 MOV R1,$8DADR ;SAVE THE ERROR INFORMATION 
988 034662 010337 001134 MOV R3,$GDADR : 
989 034 012137 001142 MOV (R1)+, $BDDAT 
990 034672 012337 601140 MOV (R3)+,$GDDAT : 
991 034676 005716 TST (SP) 71ST DATA COMPARE FRROR? 
992 034700 007023 BNE os =NO--BRANCH 
993 034702 013737 047110 601366 MOV DTADP8+12,CYL.DS = CY INDER 
994 034710 113737 047107 001372 MOVB DTADPB+171,TRK.DS > TRACK 
995 034716 7113737 047106 001370 MOV8 DTADPB+10,SEC.DS SECTOR 
034724 016600 000076 MOV 26(S5P),R GET TEST PC4+4 
997 034730 012737 034740 001222 MOV #5$, SE SCAPE Zi ESCAPE 10 5$ ON ERROR 
998 034736 104013 EMT 13 sDATA COMPARE FAILURE 
034740 016600 000020 5$: MOV 20(SP),R0 ZPATTERN NUMBER INDEX 
1000 034744 105116 COMB (SP) :SET THE ERROR SWITCH 
1001 034746 000404 BR 7$ 
1002 
1003 034750 6$: 
034750 012737 034760 001222 MOV #7$,SESCAPE ante TO 7% ON ERROR 
1006 0634756 104014 EMT 14 cFOLLOWS EM! 13 


1008 Oeeire 


035010 


1018 


Ws 035012 


1027 035032 


1037 035034 


035142 
1089 035144 
1058 035150 
1059 035152 
1060 035154 
1061 035156 


032777 
001315 
123737 


01270! 
013702 
004037 
00530¢ 
100374 
006200 


013746 
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000002 
001464 
001350 


054522 
002470 
035232 


026524 
026526 
055522 
056522 


026526 


026524 


035164 


001136 
001134 
001142 
001140 


055522 


H ] 
MACRO V04.00 4=APR=-81 11:57:12 PAGE 38-21 


144166 
001117 
000002 


026524 


001222 


SEQ 6150 
7$: BIT 4W01,aSwR iSTOP DATA COMPARE ? 
BNE 3$ sYES~-EXIT 
CMP ERR.CT,SERFLG ;MAK, ene: 
BHI 8 NO=-BRANCH 
ld ei nenesort 7 YES=-ERROR EXIT 
8$: JMP (R5) NO--CONTINUE AT NEXT WORD 


THIS ROUTINE WILL FILL THE DATA BUFFER (256*32 WORDS) WITH 
SA RANDOM PATTERN. THE FIRS? TWO WORDS OF EVERY 256 WILL 
3RE THE BASE ate THE RANDOM NUMBER GENERATOR FOR THE 

iNEXT 254 WORDS. 

NOTE : THIS ROUTINE DESTROYS R1 AND R2 
3 CAL 
> JSR RO,FILRAN 
; RETURN 


FILRAN: MOV ABUFFER,R1 


MOV PRMLMT +24 ,R2 :MAXIMUM NUMBER OF SECTORS 


1$: JSR RO,RANPAT 
DEC R2 
BPL 1$ 
RTS RO 


THIS ROUTINE USES THE FIRST TWO WORDS OF THE 
TREAD BUFFER TO GENERATED A RANDOM PATTERN, THEN 
THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED. 


:NOTE: THIS ROUTINE DESTROYS R1-R4 
3 CALL 
: JSR RO,RANCK 
RETURN 
RANCK: MOV $H11-UM, oeeey SAVE THE PRESENT RANDOM NUMBER 
MOV SLONUM, - (SP) 
MOV WAUFFER+512. ane. ZREAD BUFFER ADDRESS 
MOV MBUFFER+1024., RANDOM PATTERN ADDRESS 
MOV R1,R sCOPY IT INTO R3 FOR LATER USE 
MGV (R2) , SLONUM [PRIME THE RANDOM NUMBER GENERATOR 
MOV 2(R2) , SHINUM 
JSR RO, RANPAT 7GENERATE A RANDOM PATTERN 
MOV (SP) +,$LONUM RESTORE PRESENT RANDOM NUMBER 
MOV (SP) +, SHINUM 
CLR -(SP) NO ERRORS 
1$: SUB (R3)+,(R2)+ ARE THESE TWO WORDS DIFFERENT? 
BEQ 4$ 3NO--BRANCH 
MOV #3$,SESCAPE :;ESCAPE TO 3$ ON ERROR 
ADD = (RS) -(R2) :RECREATE THE BAD WORD 
MOV 2, $BDADR [ADDRESS OF BAD DATA 
MOV RS, $GDADR zsADDRESS OF GOCD DATA 
MOV (R2)+, $BDDAT BAD DATA 
MOV (R3)+,$GDDAT :GOOD DATA 
MOV R2,R4 FORM WORD NUMBER (1 TO 256) 
SUB MBUFFER+512.,R4 
ASR R4 
TST (SP) FIRST ERROR 
BNE 2$ 3NO--BRANCH 
COMB (SP) SYES=-SET ERROR SwITCH 
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SP COMMUNICATIONS ROUTINE SEQ 0151 

062 035160 106075 EMT 15 ;DATA COMPARE FAILURE 

1063 035162 a8: 

035162 104016 EMT 16 FOLLOWS EMT 15 

1064 035164 032777 001000 143762 38: BIT #SWO9,aSWR LOOP ON ERROR? 

1068 035172 001012 BNE 5$ 7 YES=-BRANCH 

1066 035176 423737 001464 001117 CMPB seERR.CT,SERFLG © :MAX. ERRORS OC CURRF()? 
1067 035202 101406 BOS = «S$ 7 YES--BRANCH 

1068 035204 032777 000002 143742 BIT #Sw01,aSwR :STOP COMPARING? 

1069 035272 001002 BNE 5$ 7 YES==BRANCH 

1070 035214 020103 4$: (MP R1,R3 ALL DATA BEEN COMPARED? 
1971 035216 101333 BHI 1$ ;NO=-BRANCH 

1072 035220 005726 S$: TST (SP) + ERROR OCCUR? 

1073 035222 001402 BEQ 6$ 3NO~-BRANCH 

1074 035226 013700 001350 MOV BYPASS ,RO STAKE ERROR EXIT 
“1075 035230 000200 6S: RTS RO ZEXIT 

1077 THIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 

1078 PATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 

1079 OF THE PATTERN. 

1080 SCALL 

1087 : MOV #ADR,R1 ADDRESS OF THF BUFFER 
1082. : JSR RO, RANPAT 

1085 ; RE TURN 

' 

1985 035232 010246 RANPAT: MOV R2,~(SP) SAVE _R2 

1086 035234 012702 000200 MOV #256./2.,R2 GENERATE 256 WORDS 

1087 C35240 000402 BR 2s 

1088 035242 004737 026420 1$: JSR PC , SRAND ;GENERATE A RANCOM NUMBER 
1089 035246 013721 026526 28: MOV SLONUM,(R1)* = PUT LOW WORD IN BUIFER 
1090 035252 013721 026524 MOV SHINUM,(R1)* — :PUT HIGH WORD IN BUF FE? 
1097 035256 005302 DEC Re > DONE? 

1092 035260 003370 BGT 1$ :NO-~BRANCH 

1093 035262 012602 MOV (SP) +,R2 RESTORE R2 

109% 035264 000200 RTS RO ZEXIT 

2 

1096 THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR 
1097 ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & DTADPB+12). 
1098 NOTE: THIS ROUTINE DESTROYS R1-R3 

1099 CALL 

1100 : JSR RO, RANADR 

ioe ; RETURN 

1103 035266 004737 026426 RANADR: JSR PC , SRAND ;GENERATE A RANDOM NUMBER 
1104 035272 113701 026526 MOVB —- $LONUM,R1 FORM SECTOR IN R1 

1105 035276 113702 026527 MOVB — SLONUM+7,R2 FORM TRACK IN R2 

1106 035302 013703 026524 MOV SHINUM RS FORM CYLINDER IN R3 

1107 935306 105701 TSTB RI ENSURE THE SECTOR IS BETWEEN 0 AND 31 
1108 035310 002403 BLT 2$ 

1109 035312 123701 002470 1$: CMPB = PRMLMT#24,R1 =: CHECK MAXIMUM SECTOR ADDRESS 
1110 035316 103003 BHIS 3$ 

1111 035320 000241 2$- CLC 

1112 035322 106001 RORB = R1 

7173 035324 000772 BR 1$ 

1114 035326 105702 38: TSIB RR ENSURE THE TRACK 1S BETWEEN 0 AND LAST "RACK 
1115 035330 002403 BLT 5$ 

1116 035332 123702 001374 4$: CMPB = LSTRK,R2 

"117 635336 902003 BGE 6$ 
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8 035340 


NUNN > 
mC Oo 
oo 
Wn 
on 
Lad 
& 
& 


PARAL ARN 
ME INNA OO ONAUNE GW 

Qa 

WwW 

wv 

W 

NM 

[as) 


035442 
035446 


035450 


— ot hs Ss as as SS Ss Sa Ss a SS Ss Ss oO Sh Ss Hh ss 


PRADA A AA ES ES EERE HRE HS SWW 


me et es ss es es 
WONAU EWN RO CONOAUEWN-ODOON 


035464 


MEW = 


035540 


NASSS RS LSS ae 
(>) 
Ww 
wn 
wn 
NR 
oO 


ee ee ee ee) 
—OO00ON 


ee ee eee ee ee 


ry 


000200 


032777 
001430 
104401 
009410 


012703 
013704 
004037 


000207 


002 346 


002342 


002340 


047106 
047107 
047110 


000200 
035466 


047264 
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S$: CLC 
RORB R2 
BR 4$ 
6$: CMP FC,R3 eENSURE THE CYLINDER IS BETWEEN FC AND LC 
BLE 7$ 
CLC 
ROR R3 
ADC R3 
BNE 6$ 
MOV R1,R3 
SWAB R3 
ADD R2,R3 
INC R3 
BGT 6$ 
NEG R3 
BR 6$ 
7$: CMP LC,R3 
BGE 8$ 
CLC 
ROR R3 
BR 7$ 
8$: CMP FC,R3 
BLE 9$ 
INC R3 
SWAS R3 
BR 7$ 
98: MOVB R1,DTADPB8+10 ;SAVE SECTOR ADDRESS 


MOVB R2,DTADPB+11 SAVE TRACK ADDRESS 
MOV R3,DTADPB +12 SAVE CYLINDER ADDRESS 
RTS RO RETURN 


THIS ROUTINE IS USED TO INPUT THE ‘’CONTROL SWITCHES**. 

ZIF SWR<O7>=1 THE PRESENT SETTIN'G WILL BE TYPED AND THE NEw 
SETTING IS READ AND STORED. 

NOTE: THIS ROUTINE DESTROYS R3 AND R4 


= CALL 
; JSR PC,GETSWR 
: RETURN 7 (C.SWR)=DESIRED CONTROL ZCWITCHES 
143476 GETSWR: BIT #SWO7,aSwR READ CONTROL WITCHES? 
BEO 2$ :NO-- 2RANCH 
TYPE ,65$ 2: TYPE asciZ STRING 
BR 64$ ::GET OVER THE ASCIZ 
iba SASCIZ <CRLF>/SET SWR<07>=0/ 
1$: MOV #MSG.CS,R3 s'CONTROL SWITCHES="" 
MOV C.SWR,R4S PRESENT CONTROL SwITCH SETTINGS 
JSR RO,GETNUM GET THE NEW SWITCH SETTINGS 
BR 1$ : COMMA 
NOP sPERIOD 
001320 MOV C.SWR, SAVCSW SAVE PREVIOUS VALUE 
MOV R4,C.SWR : DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
2$: RTS PC RETURN FROM CALL 


THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
7 INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 
IF REQUIRED. 


SEQ 015, 


ee tee Ge we rere tare 
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APT COMMUNICATIONS ROUTINE SEQ 015” 
1172 :NOTE: THIS ROUTINE DESTROYS R1 
ZCAL 
1174 : MOV MADR, R3 ADDRESS OF ASCIZ MESSAGE 
1175 : MOV NUM RS ZOCTAL NJMBER 
1176 : JSR RO, GETNUM 
1177 ; RETURN1 INPUT TERMINATED WITH A COMMA 
1178 : RE TURN2 “WITH A PERIOD 
1179 : RETURN? ;WITH A DOUBLE PERIOD 
1180 : =RG=INPUT NUMBER AND 
1781 : R2zR4*32 FOR ALL 
118 : THREE RETURNS 
1184 035542 010337 035550 GETNUM: MOV —s_ R328 ;SAVE MESSAGE POINTER 
*185 035546 104401 1$: TYPE TYPE THE MESSAGE 
1186 035550 000000 2$: WORD 0 “MESSAGE POINTER GOES HERE 
1187 035552 010446 MOV R4,- (SP) "SAVE R4 FOR TYPEQOUT 
035554 104402 TYPOC iGO TYPE=-OCTAL ASCII(ALL DIGITS) 
1188 035556 104401 047307 TYPE, SLASH rhs 
1189 035562 104411 RDLIN TREAD AN ASCIZ STRING 
1190 635564 012601 MOV (SP) +,R1 :ADDRESS OF FIRST CHARACTER 
"191 035566 004037 040732 JSR RO, CK. CHR CHECK ONE CHARACTER 
035572 035546 1$ SILLEGAL CHARACTER 
035574 035546 "§ CARRIAGE RETURN 
035576 035610 4$ ye 
035600 035634 8$ ote 
035602 035642 9$ ce 
035604 035606 3$ DIGIT 0-9 
1192 035606 005301 3$: DEC RI :DECREMENT THE INPUT POINTEP 
1193 035610 4$: 
055619 004037 040372 JSR k0,CK.NUM CHECK THE NUMBER 
035614 035546 1$ SILLEGAL_ INPUT 
035616 035630 7$ TERMINATED WITH A ‘',"" OR “‘CRT 
035620 035626 6$ TERMINATED WITH A **."' 
035622 035624 5$ [TERMINATED WITH A ‘*.."° 
1194 035624 005720 S$: TST (RQ) + [DOUBLE PERIOD 
1195 035626 005720 6$: TST (RO) + SINGLE PERIOD 
1196 035630 010204 7$: MOV = R2 RG :COMMA=~SAVE INPUT NUMBER 
1197 035632 000414 BR 11$ G0 TO EXIT 
1198 035634 105711 8$: TSTB (RI) TERMINATOR AFTER A COMMA? 
1199 035636 001343 BNE 1$ ;NO=~LOOP 
1200 035640 000411 BR 118 3 YES-~EXIT 
1201 035642 105711 9S: TSB. (RI) TERMINATOR AFTER A PERIOD? 
1202 035644 001406 BEO 108 YES=-EXIT 
1203 035646 122721 000056 CMPR ow, (R1)* NO--DOUBLE PERIOD? 
1204 035652 001335 E 1$ :NO=-LOOP 
1205 035654 105711 TSTB = (R1) :YES=-TERMINATOR? 
1206 035656 001333 BNE 1$ ;NO=-LOOP 
1207 035660 005720 TST (RO) + DOUBLE PERIOD 
1208 035662 005720 10$: TST (RO) + :PERIOD 
1209 035664 010402 11$: MOV RG R2 = COMMA=-POSITION THE 
1210 035666 000302 SWAB sR :NUMBER IN CASE IT 
1211 035670 0062G2 ASR Re 1S THE PRIORITY LEVEL 
1212 035672 006202 ASR Ro 
121% 035674 006202 ASR Re 
1214 035676 000200 RTS RO sEXIT 
1216 THIS ROUTINE IS USED TO CHANGE OR MODIFY 
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1277 THE TEST PARAMETERS. IT GIVES THE OPERATOR 
1218 THE CAPABILITY OF SPECIFYING WHILH DRIVES TO TEST, WHICH 
oon TESTS TO RUN AND HOW MANY TIMES TO REPEAT EACH TEST 
1221 935700 104412 GT.PRM: SAVREG SAVE RO - RS 
1222 035702 005037 901330 GT.PR1: CLR DRVSEL NO DRIVE SELECTED 
1223 035706 104401 035714 TYPE ,05$ isTYPE ASCIZ STRING 
935712 900406 BR 64$ i;GET OVER THE ASCIZ 
3:65$: .ASCIZ <CRLF>/DRIVE(S)=/ 
035730 64$: 
1224 035730 104411 RDLIN sREAD TTY 
1225 035732 012601 MOV (SP)+,R1 ADDRESS OF ASCIZ7_ STRING 
1226 935734 004037 040132 JSR RO,CK.CHR CHECK ONE CHARACTER 
035740 035702 GT.PR1 ILLEGAL CHARACTER 
035742 035702 GT.PR1 CARRIAGE RETURN 
035744 035702 GT.PR1 a 
035746 035702 CT.PR1 cig: 
035750 035702 GT.PR1 Soa 
035752 035754 i$ DIGIT 0-9 
1227 C35754 005301 1$: DEC R1 
1228 035756 e$: y 
035756 012702 000007 MOV #7 ,R2 sUPPER LIMIT OF INPUT 
035762 004037 040206 JSR RO,CK.DIG CHECK THE DIGIT(S) 
035766 035702 GT.PR1 ILLEGAL INPUT 
025770 035702 GT.PR1 7 INPUT TO LARGE 
035772 036000 3$ T TERMINATED WITH A ‘’,‘' OR ‘CR’ 
035774 036024 4$ ; TERMINATED WITH A ‘%" 
035776 036024 4$ TERMINATED WITH A ‘‘..°° 
1229 036000 156237 040636 001330 3$: BISB era Re): prvsel ISET THE DRIVE SELECTED BIT 
1230 036006 105741 TSTB =(R1) WAS THE LINE TERMINATED? 
1231 036010 001362 BNE 2$ ZNO-GET THE NEXT DRIVE 
1232 036012 005037 001332 CLR TSTNAS TDESELECT ALL TESTS 
1233 036016 905037 001334 CLR ere 
1234 036022 000405 8R YES--SELECT TEST 
1235 0360624 156237 040636 007330 4$: BIS8 RTABIT(R2), pRVSEL SET THE SELECTED DRIVE BITS 
1236 036032 104413 GT.PR2: RESREG RESTORE RO - R5 
leer 036034 000207 RTS PC EXIT 
1239 036036 GTTST1: 
036036 104401 036044 TYPE ,69$ zeTYPE ASCIZ STRING 
036042 000403 BR 64$ 72GET OVER THE ASCIZ 
; 37658: .ASCIZ /TEST=/ 
036052 648: 
1240 036052 104411 RDLIN READ AN ASCIZ STRING 
1241 036054 012601 MOV (SP)+,R1 POINTER TO R1 
1242 036056 722711 000056 CMPB #*.,(R1) ;DOUBLE PERIOD? 
1243 036062 001007 BNE 1$ . NO--BRANCH 
1244 036064 122761 000056 000001 CMPB #*.,1(R1) 
1245 036072 001003 BNE 1$ 
1246 036074 105761 000002 TSTB 2(R1) 2 CR? 
1247 036100 001754 BEQ GT.PR2 ZYES=-EAIT 
1248 936102 605037 001332 1$: CLR TSTNMS :NO TEST SELECTED 
1249 036106 005037 061334 CLR TSTNMS +2 
1250 036112 005037 001336 CLR OPNFLG _ NO TESTS 10 BE OPENED 
1251 036116 005037 001346 CLR OPNFLG+¢ 


1252 
1253 036122 121127 000123 GTTST2: CMPB (R1),a'S SALL SEEK TESTS? 


a ne eR RY TE aa ae 
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ed 
NM 
N 
tt 
e 
~ 
N 
So 
Oo 
wi 
Nm 
N 
Us 
N 


1282 036256 006305 
1283 036260 060502 


1287 036262 020227 
88 036266 


Seo 
oo 
RS 
aE 
oon 
oo 
oo 
Wo 
MwSH 
oo 
Ww 


5 
360 060502 
56362 020227 


&-O00N 
°o 
RRS 
ln 
wa 
(os 
Ln 
oO 


606777 
000124 
026000 
000101 
140000 
000104 
000001 
000105 
000002 
040056 


040056 


000022 
036462 
000017 


001540 
000055 
040056 


040056 


000022 
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001332 


001332 


001332 


001334 


001334 


001332 


1$: 


os: 


3$: 


4$: 


5$: 


6$: 


7$: 





1$ 
“777, GDie 


GTTS 
(R1) MA 
3$ 


GTTST 
(R1),#°D 

4$ 
floors 


5$ 

#2, TSTNMS+2 
GTTST3 
RO,CK.OCT 
GTTST4 
R2,R5 

R1 
RO,CK.OCT 


(R1) a= 
GTTST4 


R1 
RO,CK.OCT 
GTTST1 
R2,R5 


RI 
RO,CK.OCT 
$ 


R5,R2 
R2,4e2 


2s 
pecuee? , TSTNMS 


plies: , TSTNMS 


SEO 0155 


;NO~-BRANCH 
SYES=-SELECT TESTS 0-10 


sALL TIMING TESTS? 
7NO=--BRANCH 
SYES=~SELECT TESTS 12,13 & 15 


eALL ADDRESSING TESTS? 
NO--BRANCH 

SYES=-SELECT TESTS 16 & 17 
;DATA TEST? 

:NO==BRANCH 

SYES-~SELECT TEST 20 
pene caen TEST? 
NO--BRAN(H 

SYES=-SELECT TEST 21 
:OCTAL ela 
SYES==SAVE IT 

“MOVE TO NEXT CHARACTER 
eater DIGIT 


~-BRANCH 
MOVE TO NEXT CHARACTER 
sSCALE HIGH DIGIT 


; COMBINE HIGH & LOW DIGITS 
VALID TEST NUMBER? 
~~BRANCH 


7NO 

;SAVE THE TEST NUMBER 

sCONVERT TEST NUMBER INTO AN INDEX 
CLEAR UNWANTED BITS 


:SHIFT THE BITS 


RING? 
7 NO~~BRANCH 
7 YES--MOVE TO NEXT CHARACTER 
SOCTAL DIGIT? 


2 
ote AAI Recor. TEST 
A TEST ST 


;NO--BRANCH 

3 YES-~SAVE IT 

sMOVE TO NEXT CHARACTER 
sOCTAL DIGIT? 

; NO--BRANCH 

ZYES~-MOVE TO NEXT CHARACTER 
SCALE HIGH DIGIT 


COMBINE HIGH & LOW DIGIT 
;VALID TEST NUMBER? 
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036366 003223 
036370 023702 (€36462 


5 

S 

8 036374 002220 

9 036376 010246 

0 036400 013702 036462 

1 036404 012637 036462 
036410 006337 036462 
036414 006302 


036420 042704 000037 


0 036434 056264 001540 
31 036442 062702 000002 
ES 036446 020237 036462 


4 036454 162702 000002 
35 036460 000402 
1336 036462 000000 


1338 036464 005201 
1339 036466 121127 000056 
1340 036472 001511 
1341 036474 005737 001332 
1342 036500 001905 
1343 036502 005737 001334 
1344 036506 001002 
1345 036510 000137 036036 


1349 036514 121127 000057 
1350 036520 001054 
1351 036522 126127 177777 


1353 036532 052737 000777 
36540 


1354 0 000451 
1355 036542 126127 177777 
1356 036550 001004 


1357 036552 052737 026000 
1359 036562 126127 177777 
1361 036572 052737 140000 
1363 036602 126127 177777 
368 036612 052737 000001 
036622 126127 177777 
036632 052737 000002 
$3064? 056264 001540 
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BuT GTTST1 7NO~-BRANCH 
CMP 9$,R2 21S THE FIRST NUMBER OF THE 
+ STRING SMALLER THAN THE LAST? 


BGE GTTST1 NO~-BRANCH 
MOV R2,-(SP) ‘SAVE ENDING TEST NUMBER 
MOV “R SGET STARTING TEST NUMBER 
MOV (SP)+,9$ “STORE ENDING TEST NUMBER 
ASL 9$ “SHIFT ENDING TEST NUMBER 
ASL R2 “SHIFT TEST NUMBER 
8$: MOV R2,R4 ‘COPY TEST NUMBER INTO R4 
BIC #37, RG SCLEAR LOWER BITS 
’ ASR “SHIFT THE TEST NUMBER 
ASR a 
ASR Ré 
* ASR 
001332 BIS Br rs(R2), TSTNMS (R4) sSELECT THE TEST 
ADD #2,R2 : INECREMENT THE TEST NUMBER 
CMP R2,9$ SSEE IF FINISHED 
BLOS  8$ “BR IF NOT 
SUB #2,R2 ‘CORRECT TEST NUMBER 
BR GTTST4 + CONT JNUE 
93: -WORD 0 “STORE TEST NUMBER HERE 
GITST3: INC R1 ;MOVE TO NEXT CHARACTER 
GTTST4: CMPB (R1),A°. =" PERIOD‘? 
BEQ GTTSTS * YES~-BRANCH 
TST TSTNMS TANY TEST SELECTED THIS CYCLE? 
BNE 1$ “BR IF YES 
TST TSTNMS+#2 TANY TEST SELECTED THIS CYCLE ? 
BNE 1$ [BR IF YES 
JMP GTIST1 *NO 
sCHECK TO OPEN TESTS FOR PARAMETER CHANGES 
18: CMPB (R1),a'/ OPEN’? 
BNE 7$ *NO--BRANCH 
000123 CMPB ss ~7(R1),4"S TALL SEEK TESTS? 
BNE 2$ = NO--BRANCH 
001336 BIS #777 .OPNFLG *YES--OPEN TESTS 0-10 
000124 2$: CMPB ss -1(R1),#°T ZALL_ TIMING TESTS? 
BNE 3$ :NO-~BRANCH 
001336 BIS #26000, OPNFLG SYES--OPEN TESTS 12,13 & 15 
000101 38: (MPR -1(R1),#'A ;ALL ADDRESSING TESTS? 
BNE 4$ NO--BRANCH 
001336 BIS #140000 .0PNFLG SYES--OPEN TESTS 16 & 17 
B 
000104 4$: CMPB ss ~1(R1),#"D :DATA TEST? 
BNE S$ *NO--BRANCH 
001340 81s #1, OPNFLG#2 =YES--OPEN TEST 20 
000105 5$: (MPR =—s« -1(R1) ,#°E sEXERCISER TEST? 
BNE 6$ *NO--BRANCH 
001340 BIS #2, OPNFLG+#2 “YES=-OPEN TEST 21 
R 


001336 6$: BIS BITS(R2) ,OPNFLG(R4) 


YES-~SET BITS FOR TEST TO OPEN 


SEQ 015¢ 
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1372 036650 000405 BR Bs 

1374 036652 121127 000054 7$: CMPB (RT) a, 3 COMMA? 

1375 036656 001402 BEQ Bs ;BR IF YES 

1376 036660 090137 036036 JMP GTIST NO 

1377 036664 005201 8S: INC R1 ZMOVE, TO NEXT CHARACTER 
1378 036066 105711 TSTB(R1) 

1379 035670 001402 BEQ 9$ ‘BR IF ‘CR 

1380 036672 000137 036122 JMP GITST2 ;NO=-GO_GET NEXT CHARACTER 
1381 036676 005737 001336 9S: TST OPNFLG ANY TESTS TD OPEN ? 
1382 036702 001042 BNE OPNTST iBR IF YES 

1383 036704 005737 001340 TST OPNFLG+2 ANY TESTS TO OPEN ? 
1384 036710 001037 BNE OPNTST BR IF YES 

1385 036712 000137 036036 JMP GTTST1 ;NO==START AGAIN 

1387 036716 005201 GTTSTS: INC R1 {MOVE TO, NEXT CHARACTER 
1388 036720 121127 000056 (MPR (R1), PERIOD"? 

1389 036724 001414 BEQ GTTST6 ZYES~=BRANCH 

1390 034726 105711 iSTB (RT) SCR? 

"391 €36730 001402 BEQ 1$ ; YES--BRANCH 

1392 036732 000137 036036 JMP GTTST1 

1393 036736 005737 001336 1$: TST OPNF LG ANY TESTS TO OPEN ? 
1394 036742 001022 BNE OPNTST 7BR IF YES 

1395 036744 005737 001340 TST OPNFLG+2 ANY TESTS TO OPEN ? 
1396 036750 001017 BNE OPNTST “BR IF YES 

139¢ 936752 000157 036032 JMP GT.PR2 ;NO-~GO START TESTING 
1399 036756 005201 GITST6: INC R1 :MOVE_ TO NEXT CHARACTER 
1400 036760 105711 TSTB(R1) “CR 

1401 036762 001402 SEQ 1$ :YES- “BRANCH 

1402 036764 000137 036036 SMP GTTST1 NO=-GO ASK FOR TEST 
1404 036770 005737 001336 1§: TST OPNF LG TANY TESTS TO OPEN ? 
1404 036774 001005 BNE OPNTST ZBR IF _YES 

1405 036776 005737 001340 TST OPNFLG*2 ANY TESTS TO OPEN ? 
1406 037002 001002 BNE OPNTST BR IF YES 

407 037004 000137 036032 JMP GT.PR2 :NO--GO START TESTING 
4 

1409 ;OPEN THE SELECTED TEST FOR CHANGES 

4 

1411 037010 104412 OPNTST: SAVREG ;SAVE RO ~ R5 

1412 037012 005027 CLR (PC)+ START WITH TEST O 

1413 037014 000000 OPN.CT .WORD 0 >COUNT STORED HERE 

1614 037016 000411 BR OPN. 2 SKIP THE INCREMENT 
1416 037020 005237 037014 OPN.1: INC OPN.CT :MOVE TO THE NEXT TEST 
1419 037024 022737 000022 037014 CMP #22,0PN.CT TEST NUMBER TOO BIG? 
1420 037032 002003 BGE OPN. 2 :NO=-OPEN THE NEXT TEST 
1421 037034 104413 RE SREG RESTORE RO - R5 

1422 037036 000137 036036 JMP GT7ST1 YES=-GO ASK FOR MORE TESTS 
1424 037042 013705 037014 OPN.2: MOV OPN.CT,R5 ;SETUP TO USE THE 

1425 037046 006305 ASL R5 TEST NUMBER AS AN INDEX 
1426 037050 013703 037014 MOV OPN.CT..R3 GET INDEX 

1427 037054 042703 000017 BIC #17,R3 ZCLEAR LOWER TEST BITS 
1628 037060 006203 ASR R3 SHIFT TEST NUMBER 

7429 037062 006203 ASK R3 


1430 037064 006203 ASR R3 
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APT COMMUNICATIONS ROUT INE SEQ 0158 
1437 037066 036563 001540 001336 S17 BITS(R5) .OPNFLG(R3) OPEN THIS TEST? 
1432 037074 001751 BEQ OPN NO--MOVE TO NEXT TEST 
7433 037076 104401 037104 TYPE 6S. TYPE ASCIZ STRING 
037102 0004604 BR 64$ SIGET OVER THE ASCIZ 
3658: .ASCIZ 7 TEST / 
037114 64$: 
1434 037114 013746 037074 MOV OPN.CT,=(SP) 5; SAVE_OPN.CT FOR TYPEQUT 
037120 104402 TYPOS +360 se ici ASCII 
037102 = 002 BYTE 2 i TYPE 2 DIGIT(S) 
037123 000 BYTE 0 :SUPPRESS LEADING ZEROS 
1435 037124 106401 001231 TYPE —, SCRLF 2 (R= 
1436 037130 016500 002374 MOV) BRMPT(RS).RO PICKUP. PARAMETET. POINTER 
1437 037134 011046 MOV (RO) ,~ (SP) SAVE THE VARIABLE INDICATOR 
1438 037136 012702 002334 MOV  - #PRMR2 ZFIRST ADDRESS OF TABLE 
*439 037142 000405 BR o$ 
1440 037144 006216 1$: ASR (SP) CHECK FOR A VARIABLE 
1441 037146 103403 BCS ss :GO MOVE THIS ONE 
1442 037150 001404 BEQ = OPNPRM ; DONE 
1443 037152 005722 “ST (R2)+ BUMP THF POINTER 
1444 037154 000773 BR 1$ 
1445 037156 012022 2s: MOV (RO) +, (R2)+ :MOVE THIS VARIABLE INTG THE 
| 1446 037160 000771 BR 1$ COMMON AREA 
1448 037162 013716 002334 OPNPRM: MOV PRM, (SP) GET THE VARIABLE INDICATOR 
1449 037166 005004 CLR RG ZERO THE INDEX 
1450 037170 006216 1$: ASR (SP) CHECK FOR A VARIABLE 
| 1451 637172 103403 BCS 3S GO GET IT 
1452 037174 001772 BEQ  — OPNPRM OUT OF VARIABLES 
1453 037176 005724 2s: TST (RG) + UPDATE THE INDEX 
| 1454 037200 000773 BR 1$ 
1455 037202 005764 002444 3$: TST PRMLMT (RG) :1S_THE MAX. MAGNITUDE NEG? 
1456 037206 100466 BMI OPNPAT ZYES--THEN IT 1S THE PATTERN 
1457 037210 104401 050345 TYPE —_,BLNKS2 TYPE 2 SPACES 
1458 037214 016437 002476 037224 MOV. —- PRMMSG(R4).4$ 9 TYPE THE NAME OF THIS VARIABLE 
1459 037222 104401 TYPE 
| 1460 037224 000000 4$: -WORD 0 
1461 037226 104401 047262 TYPE —_, MSG.EQ TYPE ‘'="* 
1462 037232 016446 002336 MOV RPT (RS) ,-(SP) =PUT RPT(R4) ON THE STACK 
| 037236 004737 026136 JSR PC, $SB2D CHANGE TO DECIMAL ASCIZ 
037242 004737 026366 JSR PC, SSUPRS TYEE WITHOUT LEADING ZEROS 
1463 037246 104401 047307 TYPE —_, SLASH TYPE ' / 
| 1464 037252 104411 RDLIN 
1465 037254 012601 MOV (SP) +,R1 READ AN ASCIZ STRING 
1466 037256 004037 040132 JSR RO, CK. CHR CHECK ONE CHARACTER 
037262 037202 3$ ILLEGAL CHARACTER 
037264 037176 2s CARRIAGE RETURN 
037266 037334 98 aed 
037270 037276 5$ tig 
037272 037304 6$ oe 
037274 037332 8$ iDIGIT 0-9 
| 1467 037276 105711 5$: TSTB (RT) CR’ 
1468 037300 001340 BNE 3$ :NOw-STAY_ON THIS VARIABLE 
1469 037302 000735 BR 2s YES--MOVE TO NEXT VARIABLE 
| 1470 037304 105711 6S: TSTB (RID i1S THERE A “CR' AFTER THE PERIOD? 
1471 037306 001002 BNE 7$ NO 
1472 037310 000137 037724 sMP_OPN.N2 SYES=-GO CLOSE THIS TEST 
1473 037314 122721 000056 7$: (MPR #*, (RT) * [DOUBLE PERIOD? 


era 


po 
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1474 037320 001330 BNE 3$ sNO=-GO ASK FOR THIS VARIABLE 
1475 037322 105711 TSTB (R1) tYES=--JS A '‘CR'' AFTER THE DOUBLE PERIOD? 
1476 037324 001326 BNE 3$ zNO=~ASK FOR THIS VARIABLE AGAIN 
pe 037326 000137 037742 JMP. OPN.X2 7YES--CLOSE ALL TEST 
1479 037332 005301 8$: DEC R1 ;BACK THE POINTER UP BY ONE 
1480 037334 9$: 
037334 016402 002444 MOV PRMLMT(R4) ,R2 UPPER LIMIT OF INPUT 
037340 004037 040206 JSR RO,CK.D1G ;CHECK THE DIGIT(S) 
037344 037202 3$ ;ILLEGAL INPUT 
037346 037202 3$ : INPUT TO LARGE 
037350 037336 10$ : TERMINATED WITH A ‘',’' OR ‘CR’ 
037352 037720 OPN.N1 Z TERMINATED WITH A ‘'.*' 
037354 037736 OPN.X1 Z TERMINATED WITH A ‘’..° 
14681 037356 010264 002336 10$: MOV R2,RPT(R4) ZSAVE THIS VARIABLE 
ee 037362 000705 BR 2s sMOVE TO NEXT VARIABLE 
ee OPEN PATTERN FOR CHANGES 
1486 C37364 104401 050345 OPNPAT: TYPE »BLNKS2 s TYPE 2 SPACES 
1487 037370 104401 047256 TYPE »MSG.PAT a: *PAT’' 
1488 037374 104401 047262 TYPE oMSG.EQ : TYPE ‘‘=** 
1489 037400 016446 002336 MOV RPT(R4),-(SP) ZSAVE RPT(R4) FOR TYPEOUT 
037404 104402 TYPOC 2°60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1490 037400 104401 050346 TYPE »BLNKS1 TYPE ONE SPACE 
1491 037412 104411 RDLIN READ ASCIZ STRING 
1492 037414 012601 MOV (SP)+,R1 PICKUP POINTER 
1493 037416 004037 040132 JSR RO,CK.CHR CHECK ONE CHARACTER 
037422 037364 OPNPAT : ILLEGAL CHARACTER 
037424 037162 OPNPRM Z CARRIAGE RETURN 
037426 037460 3$ ey Aaa 
037430 037162 OPNPRM emias 
037432 037436 1$ ot aa 
037434 037456 2$ pic IT 0-9 
1494 037436 105711 1$: TSTB (R1) 'CR'’ AFTER THE PERIOD? 
1495 037440 001531 BEQ OPN.N2 *YES=--GO CLOSE THIS TEST 
1496 037442 122721 000056 CMPB #* (RD) *NO~-PERIOB? 
1497 037446 001346 BNE OPNPAT = NO--LOOP 
1498 037450 105711 T3TB (R1) = CR" AFTER A DOUBLE PERIOD? 
1499 037452 001533 BEQ OPN. X2 sYES--GO START TESTING 
1500 037454 000743 BR OPNPAT =NO--LOOP 
1501 037456 005301 es: DEC R1 :BACKUP THE ASCII POINTER 
1502 037460 3$: 
037460 004037 040372 JSR RO, CK.NUM : CHECK THE NUMBER 
037464 037364 OPNPAT SILLEGAL INPUT 
037466 037474 4$ : TERMINATED WITH A *’,"° OR “CR 
037470 037720 OPN.N1 : TERMINATED WITH A“ ae 
037472 037736 OPN.X1 S TERMINATED WITH A‘ 
1503 037474 010264 002336 4$: MOV R2,RPT(R4) * SAVE THE INPUT Nezh 
1504 037500 006002 ROR R2 OPEN PATTERN 0? 
1505 037502 103227 BCC OPNPRM [NO--START AT BEGINNING OF PARAMETER TABLE 
1306 037504 104412 SAVREG ZSAVE RO = R5 
1208 OPEN WORDS IN PATTERN #0 FOR CHANGES 
1510 037506 005000 OPNWDS: CLR RO cSTART wWlTH WORD 0 
1511 037510 012704 003576 MOV #PATO,RS 


“7RMVBC RMO5/3/2 EXT°D DR TST 


AP’ COMMUNICATIONS ROUTINE 


"512 037514 
037514 
037520 


37530 


037666 
037672 
1541 037674 


1545 037676 
1546 037702 
1547 037704 
1548 037710 
1549 037712 
1550 037714 


104401 
000463 


010046 
004737 
004737 
104401 


005301 
004037 


037514 
037614 


104413 
000422 


012701 


€37522 


026136 
026366 
047262 


040132 


040372 


000020 


000056 


037676 


037676 


003576 
000017 


1§: 


705$: 


iis: 


es: 
$: 


4$: 
53: 


6$: 


7$: 
8$: 


9$: 
“O$: 


CLSWDS: MOV 
1$: INC 
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SEQ 0160 
TYPE 698 72 TYPE ASCIZ STRING 
64$ 2:GET OVER THE ASCIZ 
ASCIZ / WD/ 
MOV RO,-(SP) PUT RO ON THE STACK 
JSR PC ,$SB2D CHANGE TO DECIMAL ASCIZ 
JSR PC, $SUPRS ‘TYPE Wi THOUT LEADING ZEROS 
TYPE -MSG.EQ 
MOV (Ro) ,- (SP) SAVE (R4) FOR TYPEOUT 
TYPOC 7GO TYPE=-OCTAL ASCIICALL DIGITS) 
RDLIN :READ ASCIZ STRING 
MOV (SP)+,R1 :PICKUP THE POINTER 
JSR RO,CK.CHR CHECK ONE CHARACTER 
1$ ILLEGAL CHARACTER 
7 2 CARRIAGE RETURN 
5$ ald oe 
6$ on 
2$ :DIGIT 0-9 
DEC R1 SBACKUP THE ASCII POINTER 
JSR RO,CK.NUM SCHECK THE NUMBER 
1$ 7 ILLEGAL INPUT 
4$ 7 TERMINATED WITH A °',°° OR '(R’’ 
7$ TERMINATED WITH A °°.’ 
9$ Z TERMINATED WITH A °° 
MOV R2,(R&) SAVE THE INPUT 
TST (R4)+ sMOVE TO NEXT WORD 
INC RO c INCREMENT THE COUNT 
CMP #16. .R0 > COUNT TO LARGE? 
BGT 1$ 3NO--BRANCH 
8R OPNWD S 3 YES--BRANCH 
TSTB (R1) 3''CR'’ AFTER THE PERIOD? 
BEQ 8$ 7 YES--GO CLOSE THIS TEST 
CMPB we. (RY)+ NO--PER i0D? 
BNE 1§ NO--BRANCH ILLEGAL INPUT STRING 
TSTB (R1> :"CR'’ AFTER THE °PERIOD-PERIOD’? 
BEQ 10$ TYES=-GO START TESTING 
BR 1$ :NO=-L OOP 
MOV R2,(K4)+ ;SAVE THE INPU 
JSR PC,CLSWDS CLOSE THE DATA PATTERN 
RESREG SRESTORE RO - RS 
BR OPN.N2 :MOVE TO NEXT TEST 
MOV R2, (RS) SAVE THE INPUT 
JSR PC,CLSWDS ;CLOSE THE DATA PATTERN 
RESREG RESTORE RO - 5 
BR OPN.X2 : START TESTING 
CLOSE PATTERN #0 AND SAVE CHANGED WORDS 
#PATO,R1 FIRST ADDRESS OF DATA PATTERN 
RO ;COUNT THE LAST WORD THAT WAS STORED 
CMP #15.,R0 ZEND OF TABLE 
BLT 2$ ZYES=-EXIT 
MOV (R1)+,(R4)+ i COPY 
BR 1$ ; LOOP 


“Z7RMYBO RMOS/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUTINE 


1557 037716 

1552 

Ure, 037720 
4 037724 


1888 037726 
1556 037732 


1558 037736 
1559 037742 
1560 037744 
1561 037750 
1562 037752 
1563 037756 


1567 037772 
1568 037774 


1572 037776 


1591 040054 


000207 
010264 
005726 
004737 
000137 


010264 


000765 


104412 
012700 
016501 


000207 


0023536 


037776 
0370620 


002336 
037776 
000034 


036032 
001540 


002334 
002374 


000001 


002000 


009060 
000067 


177770 
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es: 


OPN.N1: 
OPN .N2: 


OPN.X1: 
OPN. Xe: 


2$: 


3$: 


PC 
R2,RPT(R4) 
(SP)+ 

PC, CLOSE 
OPN. 1 


R2,RPT(R4) 


GT.PR2 
BITS(RS),R3 
1$ 

2$ 


SEQ 6161 


RETURN 
sSAVE THIS VARIABLE 


ZCLEAN OFF THE STACK 
SCLOSE THIS TEST 
3GO OPEN THE NEXT TEST 


sSAVE THIS VARIABLE 
CLEAN OFF THE STACK 
;CLOSE THIS TEST 
ZUPDATE THE INDEX 
ZINDEX TO BIG? 
7NO-~BRANCH 

RESTORE RO - RS 

:GO TO EXIT 

71S THIS TEST OPEN FOR CHANGE? 
7 YES=--GO CLOSE IT 
ZNO--MOVE TO NEXT TEST 


CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES 


CLOSE: 


2$: 


3$: 


SAVREG 
™ 


BEQ 
RESREG 
RTS 


#PRM,RO 
PRMPT(R5),R1 
(RO) +,R2 
(R1)+,R3 
#1,R4 

R4,R2 

2s 

R4,R3 


3$ 

(RO), (R1) 
R4,RS 

3$ 

(R1)+ 
(RO) + 


RS 
#BIT10,RS 
1$ 


PC 


SAVE RO ~ R5 

:FROM'' ADDRESS 

270" ADDRESS 

7’ FROM’ INDICATOR 

"TO" INDICATOR 

TEST BIT START A “RPT"’ 


* PARAMETER TO BE MOVED? 
2 NO~~BRANCH 


3A PLACE TO PUT IT? 
[NO--BRANCH . 
3s YES~-MOVE “FROM TO "TO 
;*°T0"' PARAMETER? 


[NO--BRANCH 

SYES=--UPDATE THE POINTER 
ZUPDATE FROM POINTER 
sPOSITION THE TEST BI’ 

: DONE ? 


3 DONE ? 
=NO--BRANCH 
sRESTORE RO - RS 
ZRETURN 


ZTHIS ROUTINE IS USED TO CHECK IF AN 
ZASCII CHARACTER IS A DIGIT BETWEEN O AND 7. 


CALL 


Cr OCT: 


MOV 
JSR 
RETURNI 
RE TURN2 


MADR ,R1 
RO,CK.OCT 


(R1) #0 
1$ 
(RI) a> 
i$ 


(R1),R2 
w*C7,R2 


sADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
ZCHARACTER IS NOT BE TWEEN Q-7 
ZCHARACTER Ib IN Re AS 4 
ZOCTAL DIGIT 


7LESS THAN ZERO? 


YES -~ BRANCH 
[GREATER THAN SEVEN? 
3YES += BRANCH 


GET THE CHARACTER 
SSTRIP AWAY THE ASCI: 
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“608 940100 065720 TST (RO) + ADJUST FOR RETURN 

icin 040102 000200 $: RTS RO RETURN 

“671 - THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 

912 AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 
ZCALL 

161% : MOV M#ADR,R1 ADDRESS OF ASCII CHARACTER 

1615 : JSR RO,CK.DEC CHECK THE CHARACTER 

1616 : RETURN NOT BETWEEN 0 AND 9 

161? : RE TURN2 BETWEEN 0 AND 9 

1018 : :R2 = DIGIT 

1620 040104 121127 000060 CK DEC: CMPB (R1),4'0 :LESS THAN ZERG? 

1621 040110 103407 BLO 1$ YES == BRANCH 

1622 040112 121127 000071 CMPB (R1),4'9 GREATER THAN NINi ? 

1623 040716 101004 BH] 1$ YES -- BRANCH 

1624 040120 111102 MOVB (R1) ,R2 GET THE CHARACTER 

1625 040122 042702 000060 BIC #'0,R2 STRIP AWAY THE ASCI] 

1626 040126 005720 “ST (RO) + zADJUST FOR RETURN 

es C40130 000200 1$: RTS RO RETURN 

1629 THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 

1630 ZIDETERMINE WHAT IT IS, 

1631 ZCALL 

1632 : MOV M#ADR,R1 ADDRESS OF ASCII CHARACTER 

1633 : JSR RO,CK.CHR CHECK CHARACTER 

1624 : RETURN ADR1 UNKNOWN CHARACTER 

1635 : RETURN ADR2 CARRIAGE RETURN * (R1)-ADR+1 

1636 : RETURN ADR3 SLASH * (R1)=ADR+1 

1637 : RETURN ADR4 :COMMA *« (R1)=AvR+1 

1638 ; RETURN ADRS :PERIOD * (R1)=ADR+1 

1639 : RETURN ADR6 pial BETWEEN O AND 9. 

a : R2 = DIGIT * (R1)-ADR+1 

1642 040132 105711 CK.CHR: TSTB (R1) "CARRIAGE RETURN''? 

1643 040134 001420 BEG 4$ “YES ~- BRANCH 

1644 040136 121127 000057 CMPB (R1) ,a'/ 2" SLASH’? 

1645 040142 001414 BEO 3$ sYES. == BRANCH 

1646 060144 121127 000054 CMPB (R1) a", 7" ‘COMMA’? 

1647 040150 001410 BEQ 2s “YES -- BRANCH 

1648 060152 121127 000056 CMPR (RI), : PERIOD’? 

1649 040156 001404 BEQ 1$ ZYES ~=- BRANCH 

1550 040160 004037 040104 JSR RO, CK .DEC :' DIGIT’? 

16517 040164 000406 BR S$ NO ~~ BRANCH 

1652 040166 005720 TST (RO) + “DIGIT BETWEEN 0-9 

1653 0640170 005720 1$: TST (RO) + :PERIOD 

1654 040172 005720 et: TST (RO)+ 7 COMMA 

1655 040174 005720 3$: 1ST (RO) + 2 SLASH 

1656 040176 005720 4$: TST (RO) + S CARRIAGE RETURN 

1657 040200 005201 INC R1 :MOVE POINTER TO NEXT CHARACTER 

1658 040202 011000 S$: MOV (RO) ,RO UNKNOWN CHARACTER 

Wee 040206 690200 RTS RO RETURN 

1661 THIS ROUTINE CHECKS AN ASCII] STING FOR LEGAL 

Mee s COARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2, 
ZCALL 


1664 : MOV #ADR,R1 ZADDRESS OF ASCI2 STRING 


7c7RMVBO RMOS/5/2 EXT'D DR TST 
APT COMMUNICATIONS ROU’ INE 


1665 s 
1666 ; 
1667 : 
1668 

1669 
1670 ; 
"671 bs : 
1672 

7673 040206 010446 

1674 040210 010346 

1675 Q40212 010246 
"676 060214 005002 
1677 040216 
3678 040220 


1679 040222 040° 32 


040132 


ee 040276 


1689 040302 
1690 040304 
1691 040306 


005301 e$: 
005724 3$: 


005724 4%: 
040132 


005724 5$: 


177776 000054 6$: 


0620316 7$: 


005729 8$: 
010302 9$: 


MATRG v06.00 4-APR=-81 


MOV 

JSR 

RETURN 
RE TURN 
RETURN 
RETURN 
RETURN 
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#NUM ,R2 
RO,CK.01G 
ADR1 

ADR2 

ADR3 

ADR4 

ADRS 


R4,=(SP) 
R3,~(SP) 
R2,~(SP) 
Re 
R3 


R4 
RO,CK.CHR 


R3 

R3,-(SP) 

R3 

R3 

(SP)+,R3 
R3 

RO,CK.CHR 


R1 


CRO) + 
(RO)+ 
RO,CK.CHR 


(RG) + 
(R1) 
7$ 

9$ 


-2(R1),#", 


R3, (SP) 
8$ 


R4,RO 
(RO) + 
R3,R2 
(SP) + 


SEQ 016” 


:MAX. MAGNITUDE OF INPUT NUMBER 


s CHECK DIGITS 
SILLEGAL CHARACTER <= R2-? 
7 INPUT NUMBER TO LARGE == R2 ? 


; e- R2 = NUMBER 
PERIOD'’ -- R2 = NUMBER 

1 BER opePER IOS =- RO - NUMBER 

; SAVE R4 

:SAVE R 


3 
sSAVE THE MAX. SIZE ON THE STALr 
START WITH 0 


CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
; CARRIAGE RETURN 


TDIGIT 0-9 
“SAVE #2 


18 
3 (9B) 4 (92) =010, 
ZUPDATE THE INPUT NUMBER 
+ CHECK ONE CHARACTER 

S ILLEGAL CHARACTER 

< EANRIAGE RE TURN 


“DiGi 0-9 
SBACKUP THE CHARACTER POINTER 
Z CONT INE 
3 PERIOD" 

3° COMMA" OR **cR’ * 

CHECK ONE CHARACTER 

SILLEGAL CHARACTER 
: CARRIAGE RETURN 


e o 
fe ee 


IDIGIT 0-9 

£ PERIOD-PERIOD"* 

7 YES--BRANCH 
sWAS CHARACTER BEFORE THE DiGI* A “QMMA’ 
sNOwmEXIT 

3 INPUT TO LARGE? 


SYES =- BRANCH 
TADJUST RETURN ADDRESS 


NUMBER TG R2 
CLEAN MAX. SIZE OFF OF STACK 


aM SB GM0S7372 EXT'D 


ary 


’ "Us 


ee ie ee ee ee 
N™NNNN™N VON 
— eH ot wes 
CONAN WH 


a ed a nk at es 
NNNNNNNNNNNNNNWN 
WILLA RO RO PO RO RO ROMA - 
ARIPO DOANAUEWN—O 0 


1734 
1735 
1736 


1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1/65 
1746 
1747 
1748 


040362 
5 040564 
040366 
040370 


04372 


040510 


012603 


000200 


010346 


000200 


DR rst 


OMMUNI CATIONS ROUTINE 


040056 


040056 


040132 


000056 
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THIS ROUTINE CHECKS AN ASCIZ 
AND FORMS AN OCTAL NUMBER IN R 


: CALL: 


CK NUM: 


2$: 


MOV 
MOV 
MOV 
RTS 


MOV 


JSR 

RETURN 
RETURN 
RETURN 
RETURN 


(SP) ¢,R3 
(SP) ,R4 
(RO) ,RO 
RO 


#ADR,RI 
RO,CK .NUM 
ADR} 

ADR2 

ADR3 

ADR4 
R3,~-(SP) 
R3 


RO,CK.OCT 


SRESTORE R$ 


sRESTORE RG 
i GET BEEN ADDRESS 
; RETURN 


ae FOR LEGAL CHARACTERS 


ene one 4 ASCI2 STRING 
:G0 F THE NUMBER 

:TELEGAL CHARACTER IN Ya eo STRING 
“*COMMA’’ OR ''CR''==-R2=NUMB 

“PERIOD =-R2= NUMBER 

;’ PERIOD=PERI OD’ =-R2=NUMBER 


i SAVE R3 

START NUMBER AT ZERO 
sOCTAL DIGIT? 

7NO~~BRANCH 

SMOVE TO NEXT CHARACTER 
2FOR THE OCTAL NUMBER IN R3 
;DON'T LET IT GET TO BIG 


31S THIS AN OCTAL DIGIT? 
:NO=-FIND OUT WHAT IT 15 
YES--MAKE IT PART OF THE NUMBER 
SAVE THE OCTAL NUMBER 

START WITH ZERO INDEX 

CHECK ONE CHARACTER 

SILLEGAL CHARACTER 

CARRIAGE RETURN 

ry yet 


:DIGIT 0-9 


PE 

;* PERIOD-PERIOD"”? 
:NO--BRANCH 
ZYES--ADVANCE THE POINTER 
:, BERIOD-PERIOD" 


°e 2'CR'" a9 

:NO=~BRANCH 

SYES--SAVE THE OCTAL NUMBER 
TRESTORE R3 


SPICKUP EXIT ADDRESS 
RETURN 


“Z7RMVBO RMOS/3/2 EXT*D 
SINGLE /DUAL POR” Rm/RM DRIVER ‘REV 6.5) 1981 


~) 


STE NR 8M © COND ABW 


~ ss 


"6 


040512 000009 000000 000000 


040522 
040523 
040524 
040525 
040526 
040527 
040530 
040531 


040532 
040533 
040534 
040535 
040536 
040537 
040540 
040541 


OR TST 
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-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 


NEW DRIVE TYPE ID FOR RMO2 teennnenne 
210*AUG=77 seenneennne 

> 10-MAR~78 THE SC, SC5 CHANGES 

‘NEW DRIVE TYPE ID FOR RMOS stannous 
11980 «ennnnnnnee 

:COPYRIGHT (C) 1977,1981 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MA 01754 

ZAUTYOR(S): JIM LACEY/CHUCK HESS 
ZREVISED BY: MIKE LEAVITT - 


ne RRMA AAARARAAAARARARERHETAEATRAAAERAAARNRRERAAAHARHHHENHHHHEheene tana 


3 STORAGE _FOR RMDS, ee 
ERRS MDS 


11-APR~80, 27-MAR-81 


RMER2, AND RMMR2 ON AN ERROR ''2"’ 


“RMERRS+2 = AMER 

TRMERRS+4 = RMER2 

TRMERRS+6 = RMMR2 
RMERRS: .WORD 0,0,0,0 


TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT=0 IF ORIVE IS IDLE 
SDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE O DRIVE 0 
-BYTE Q sDRIVE 1 
-BYTE QO DRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 DRIVE 4 
BYTE 0 sDRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 9 DRIVE 7 


: TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
sDRVSTA=O0 IF DRIVE IS OFFLINE OR NONFXSITENT 
sDRVSTA>O IF DRIVE IS ONLINE 
SDRVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: rave 0 DRIVE 0 
-BYTE 90 DRIVE 1 
-BYTE 0 DRIVE 2 
-BYTE 0 DRIVE 3 
-BYTE 0 DRIVE 4 
-BYTE 0 DRIVE 5 
-BYTE QO DRIVE 6 
-BYTE 0 sDRIVE 7 
7 TABLE oF DRIVE TYPES (DRVTYP=8 BYTES) 
DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, AcSO) 

‘DRY IYP= 7 IF DRIVE IS RMOS ***#e%* 
DRVTYP-S IF DRIVE IS RMO2 *#eee® 
SDRVTYP-4 IF DRIVE IS RMO3 


Pa 


t2ZRMVBO RMO5S/3/2 EXT'D 
SINGLE/DUAL PORT PH/RM DRIVER (REV 6.5) 1981 


040542 
040543 
040544 
040545 
040546 
040547 
040550 
C40551 


040552 


040560 
040561 


040562 
040563 


040571 


040572 


040574 


040576 


000000 


000000 


000 
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DRVTYP: 


TABLE OF DUAL PORT INITI 


DPINT: 


:DPINT<O IF INITI 


BYTE QO ,DRIVE 0 
BYTE Q DRIVE 1 
-BYTE 0 sDRIVE 2 
BYTE QO sDRIVE 3 
-BYTE QO DRIVE 4 
-BYTE 0 sDRIVE 5 
-BYTE QO DRIVE 6 
-BYTE 0 DRIVE 7 


£0 0166 

sDRVTYP==1 IF NOT RMO5/3/2 

-BYTE 0 sDRIVE 0 
-BYTE 0 sDRIVE 1 
BYTE 0 DRIVE 2 
BYTE 0 DRIVE 3 
BYTE O DRIVE 4 
-BYTE OQ sDRIVE 5 
-BYTE OQ sDRIVE 6 
BYTE 0 sDRIVE 7 


ON INDICATORS 
ON IS NOT ACTIVE ON THE DRIVE 


ALIZATI 
sDPINT=0 IF INITIALIZATI 
ALIZATION IS IN PROGRESS 


; ABLE OF PENDING DUAL PORT REQUESTS 


DPRQS: 


;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 


SDPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


-BYTE O DRIVE O 
BYTE QO DRIVE 1 
BYTE 0 sDRIVE 2 
-BYTE 0 DRIVE 3 
-BYTE O sDRIVE 4 
-BYTE 0O DRIVE 5 
-BYTE 0 DRIVE 6 
-BYTE 0O sDRIVE 7 


TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
J 


TRNSWYT : 


HIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
3’ DPB'' OF THE I1/G OPERATION. 


-WORD QO 


> SEARCH Suis ie. (SRCHWT=1 WORD) 


SRCHWT : 


S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
73 THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND ab THE 1/0 
“REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE 
ZEACH DRIVE iS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


-WORD 0 


7RM Po DRY O FLAG (ACTDORV=1 BYTE) 


ACTDRV: 


TDRV=0 IF DRIVER IS INACTIVE 
SACTDRV>O IF DRIVER IS ACTIVE 


BYTE 0 


CZRMVBO RMO5/3/2 EXT'D 
SINGLE/DUAL PORT RAH/RM DRIVER (REV 6.5) 1981 SEQ 0167 


95 


ek ed med ed ed eed aed od = ned 


tyr Aa ea ee es 
DOBNAUSWIAO 


121 


040577 


040600 
040601 
040602 
040603 
040604 
040605 
040606 
040607 


040610 


040612 


040614 


040634 


000 


000000 


177777 


177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


177777 
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SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
ZACTSTR=0 IF SOFTWARE TIMER RCUTINE 1S INACTIVE 
TACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE 0 


UNLOAD FLAG (ULDFLG=8 BYTES) 
sULDFLG=0 IF NO UNLOAD COMMAND 
SULDFLG>Q IF UNLOAD COMMAND IN PROGRESS 
SULDFLG<O if UNLOAD COMMAND IN WAIT QUEUE 


ULDFLG: .BYTE 0 DRIVE 0 
BYTE 0 sDRIVE 
-BYTE 0 sDRIVE ‘2 
-BYTE Q SDRIVE 3 
-BYTE O DRIVE 4 
-BYTE 0 sDRIVE 5 
-BYTE Q DRIVE 6 
-BYTE 0 iDRIVE 7 


7 SAVE RE ee FLAG (SAVEFG =1 WORD) 
ZSAVEFG <O IF SAVE THE RH/RM REGISTERS WHEN THE 
‘PERT ION IS COMPLETED AS PER (DPB+14). 
:SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
:(DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


7 SEEK FLAG (SEEKFG=1 WORD) 
SEEKFG=0 IF WHEN THE DISK ADDRESS ICN‘T IN THE WINDOW 
ZFOR A DATA TRANSFER START A SEARCH COMMAND 
SSEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
DISREGARD THE WINDOW 


SEEKFG: .WORD -1 


eT es TABLE (TIMER=8 WORDS) 
:THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPrRATION 


TIMER: .WORD -1 DRIVE 0 
“WORD -1 DRIVE 1 
WORD -1 DRIVE 2 ; 
WORD -1 :DRIVE 3 
WORD 1 DRIVE 4 
WORD =1 DRIVE 5 
“WORD ~1 DRIVE 6 
“WORD -1 DRIVE 7 


DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 ee 
:DTUW<0 IF NO DATA TRANSFER UNDERW 
DTUW-+N (WHERE N=O0 TO 7) IMPLIES DATA TRANSFER UNDERWAY UN DRIVE N 


DTUwW: -WORD  -1 
SO ee ais t TABLE (ATABIT=8 BYTES) 


TABLE PON THE CORRESPONDING BIT TO EACH DRIVES 
ZATTENTION BIT 


CZRMVBO_RMOS/3/2 EXT'D 


144 

145 040636 
146 040637 
147 040640 
148 040641 
149 040642 
150 040643 
151 040644 
040645 


= 
wi 
— 


040646 


ed ed ed eed Lg = 
PANDAS 
OONAUSWG 


161 
162 040650 
163 040652 


169 040656 


000003 


176700 
000254 
000005 


000000 
000002 


000046 


DR TST 


000240 
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SEQ 0168 
ATABIT: .BYTE 1 sORIVE 0 
BYTE 2 sDRIVE 1 
BYTE 4 sDRIVE 2 
BYTE 10 sDRIVE 3 
-BYTE 20 DRIVE 4 
«BYTE 40 sDRIVE 5 
-BYTE 100 sDRIVE 6 
-BYTE 200 sDRIVE 7 


NUMBER OF 'MASSBUS CONTROL PARITY ERRORS’' (MCPE) ALLOWED BEFORE 
iCALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


RMADR: .WORD 176700 
RMVEC: .WORD 254,5*32. 


s;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW-7? WORD) 
MXWNDW: .WORD 5 


DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1 = 0 CONTROL AND STATUS REGISTER 41 (DRIVE REG. 0) 
RMWC = 2 : WORD COUNT REGISTER (NOT A DRIVE REG) 

RMBA = 4 UNIBUS ADDRESS REGISTER (NCT A DRIVE REG) 

RMDA_ = 6 “DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 
RMCS2 = 10 :CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RMDS = 12 ZDRIVE STAIUS REGISTER (DRIVE REG 1) 

RMER1 == 14 TERROR REGISTER #1 (DRIVE REG. 2) 

RMAS = 16 sATTENTION SUMMARY PSEUDG REGISTER (DRIVE REG. 4) 
RMLA = 20 ;LOOK AHEAD REGISTER (DRIVE REG. 7) 

RMDB = 22 :DATA_BUFFER REGISTER (NOT A DRIVE REG.) 

RMMR1 = 24 sMAINTAINABILITY REGISTER (DRIVE REG. 3) 

RMDT = 26 sDRIVE TYPE REGISTER (DRIVE REG. 6) 

RMSN = 30 SERIAL NUMBER REGISTER (DRIVE REG. 10) 

RMOF = 32 OFFSET REGISTER (DRIVE REG. 11) 

RMDC = 34 DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
RMHR ~ 36 ;DUMMY ADDRESS REGISTER (DRIVE REG. 13) 

RMMR2 == 40 MAINTENANCE REGISTER 42 

RMER2 == 42 ERROR REGISTER #2 (DRIVE REG. 15) 

RMEC1 = 44 3ECC POSITION REGISTER (DRIVE REG. 16) 

RMEC2 = 46 ECC PATTERN REGISTER (DRIVE REG. 17) 


-SBITL RH/RM vii. INITIALIZATION CODE 


THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 

AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 

3TO THE PROPER STATE FOR EACH DRIVE. 

NOTE: THIS ROUTINE CALLS DRVINT . 


‘CALL 


JSR PC,RMINIT 


CZRMVBO_RMO5/3/e EXT'D 


RH/RM DRIVER INITIALIZATION CODE 


a tt to tS OO 
DW CON AUESWH OOO 


MIMGNPINGNINININMININN ND 


940660 


041070 


104412 


000207 


DR TST 


177776 
000240 
046336 
040512 
040612 


040634 
177777 


040532 
040534 
040536 
040540 
040652 
043306 
040654 
040650 
000040 


041072 


040532 
177770 
000007 
177776 
040552 


045772 
040552 


177776 


N 13 
MACRO V04.00 4-APR=81 11:57:12 PAGE 34-4 


177776 


000010 


: RETURN 
‘NOTE: THE 'P* 
RMINIT: SAVREG 


1$: 


es: 


3$: 


4$: 
S$: 


6$: 


8$: 


OR 


PS -(SP) 
#<§%32.>,PS . 
PC, CLRQUE 
ARMERRS RI 
ASEEKFG.R2 
(R1)+ 

R1,R2 

1$ 

ADTUW,R2 
#~1,(R1)+ 
R1,R2 

2s 

DRVSTA 
DRVSTA+2 
DRVSTA+4 
DRVSTA+6 
RMVEC,R3 
#ISR, (R3)+ 
RMVEC+2,(R3) 
RMADR RS 
#CLR,RMCS2(R4) 


RO,DRVINT 
4$ 


5$ 
DRVSTA(R1) 
R1 

#*°C7,R1 

3$ 

#7,R) 

PS 
DPINT(R1) 
8$ 


PC,SET.IE 
DPINT(R1) 
7$ 


R1 
6$ 
(SP)+,PS 
PC 


DRIVE INITILIZATION ROUTINE 


THIS ROUTINE oie aa IF A DRIVE EXIST ANC ; 
THEN MOL, DPR, ORY, AND VV ie 


SAN RM05/3/2. 


ZIS SET TOA ‘I'S 


S INSURE THEY ARE ALL ON A eae, 
SDRVSTA IS SET TO THE PROPER CONDITION. 


= CALL 
: MOV 
MOV 
JSR 


ADRVNUM ,R1 
RMADR ,R4 
RO,DRVINT 


"L' CLOCK MUST BE STARTED 


SAVE RO = R5 

SAVE THE PRESENT PROCESSOR ST4TUS 
i; CHANGE THE PRIORITY TO 5 

CLEAR ALL REQUEST QUEUES 

FIRST ADDRESS TO BE Ci EARED 


Cre AR ADDRESS TO BE CLEARED 
SARE WE DONE? 

;BR IF NO 

;LAST ADDRESS 

s INITIALIZE 

: DONE? 


;LOOP IF NO 
SET ALL DRIVES TO OFFLINE 


7SETUP THE RH/RM VECTOR 


3FIRST ADDRESS OF RH/RM 
sMASSBUS INIT 
START WITH DRIVE 0 


INIT THE DRIVE 


:'DVA' NOT SET OR PARITY ERROR 


NORMAL RETURN 
:SET DRIVE STATUS TO OFFLINE 


[GO TO NEXT DRIVE 

MASK OUT UNUSED BITS 

3;BR IF MORE DRIVES TO GC 

START WITH DRIVE 7 

:CLEAR THE PROCESSOR STATUS 

WAITING FOR DRIVE TO SWITCH PORTS ? 
3;BR_NOT WAITING 


SET INTERRUPT 
SDRIVE SWITCHED PORTS ? 
BR If NOT 

3GO TO THE NEXT DRIVE 
CHECK NEXT DRIVE 


ZRESTORE THE PROCESSOR STATUS 
RESTORE RO - R5 


sBYE-BYE 
F IT IS 
"READ-IN PRESET’' IS ISSUED AND FMT16 
E CHECKED TO 
AND DEPENDING ON THEIR STATE, 


DRIVE NUMBER TO R1 
;UNIBUS ADDRESS OF RH/RM (RMCS1) 
;CALLED BY A JSR 


“Yd 


8 14 
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RH/RM DRIVER INITIALIZATION CODE 5€0 0170 
265 ; RETURN] TERROR OCCURRED (PARITY) 
266 : RE TURN SNORMAL RETURN 
269 061072 010546 DRVINT: MOV R5,-(SP) SSAVE R5 
270 041074 105061 040532 CLRB — DRVSTA(R1) SSTART DRIVE STATUS AS OFFLINE 
271 041100 105061 040542 CLRB = DRVTYP(R1) “CLEAR THE DRIVE TYPE INDICATOR 
272 041106 105061 040600 CLRB = ULDFLG(R1) ‘CLEAR THE UNLOAD FLAG 
273 041110 010164 000010 MOV RI,RMCS2(R4) SELECT A DRIVE 
274 061114 112754 000111 000000 MOVB = #7117, RMCS1(R4) :DO A DRIVE CLEAR COMMAND (& SFIZE DRIVE) 
2785 041122 032764 010000 000010 BIT WAITI2,RMCS2(R4) SNONEXISTENT DRIVE? 
276 041130 001403 : BEO 1$ NO 
277 061132 004737 045772 JSR PC.SET.IE [GO SET ‘‘IE’' WITHOUT A ‘TRE’ 
278 041136 000520 BR 4$ SLEAVE THIS ROUTINE 
280 041140 105061 040532 1$: CLRB ss DRVSTA(R1) ZSET DRIVE STATUS TO OFFLINE 
2B1 041144 032764 004000 000000 BIT WB1T11,RMCS1(R4) :SEE IF DRIVE AVAILABLE 
282 041152 001512 BEQ 4$ :BR IF DRIVE NOT AVAILABLE 
283 061154 004037 045302 JSR RO.RD.RM “READ THE DRIVE TYPE REG. 
284 641160 000026 RMD T 
285 041162 041402 5$ ZERROR RETURN ADDRESS 
286 041164 012605 MOV (SP)+,R5 *PUT DRIVE TYPE IN R5 
287 041166 112761 000004 04C542 MOVB #4,DRVTYP(R1) SET RMO3 INDICATOR 
288 041174 022705 020024 CMP #26026 RS SSINGLE PORT RMO3 ? 
289 0641200 001431 BEQ 2s [BR IF YES 
290 041202 022705 024024 cmp #26024 ,R5 “DUAL PORT RMO3 ? 
291 041206 001426 BEQ 2$ SBR IF YES 
292 041210 112761 000005 040542 MOVB #5,DRVTYP(R1)  =SET RMO2 INDICATOR 
293 041216 022703 020025 CMP #20025 ,R5 SSINGLE PORT RMO2 ? 
234 041222 001420 BEQ 2$ ‘BR IF SO 
295 041226 022705 024025 CMP #26025 ,R5 “DUAL PORT RMO2 ? 
296 041230 001415 BEQ 2$ ‘BR IF SO 
297? 041232 112761 0V0007 040542 MOVB #7, DRVTYP(R1) «SET _RIKOS INDICATOR 
298 041240 022705 020027 CMP #26027 ..R5 SSINGLE PORT RMCS ? 
299 041244 001407 BEO 28 TBR IF YES 
300 041246 022705 024027 CMP #26027,,RS ‘DUAL PORT RMOS ? 
301 041252 001404 BEQ 2$ SBR IF YES 
302 041254 112761 177777 060542 MOVB  #=-1,DRVTYP(R1) =SET INDICATOR 10 ‘OTHER’ 
30 041262 000446 BR 4$ TEXIT 
305 041264 012746 000121 2%: MOV #121,-(SP) [DO A “'READ-IN PRESET" 
306 041270 004037 045462 JSR RO, WRT RM 
307 041274 000000 RMC51 
368 041276 041402 5$ 
309 041300 012746 010000 MOV WBIT12,-(SP) —-: SET FMT16=1 
310 041304 004037 045462 JSR RO, WRT .RM 
311 041310 000032 RMOF 
312 041312 041402 5$ 
313 041314 004037 045302 JSR RO.RD.RM ;READ RMDS 
314 041320 000012 RMDS 
315 041322 041402 5$ 
316 041324 012605 MOV (SP) +,R5 TAND SAVE IT IN R5 
317 041326 100015 BPL 33 “BR IF ATA=0 
318 041330 116164 040636 000016 MOVB — ATABIT(R1) ,RMAS(R4) SCLEAR ATTENTION BI° 
319 0413 004037 045302 ISR RO,RD.RM :FIND OUT WHY ATA~1 
320 041342 000014 RMER1 
321 041344 041402 5$ 


322 041346 
323 041350 
324 041352 

041360 


362 
364 
370 
372 
400 
332 041402 
333 041404 


1 
041 
041 
329 041 
041 
041 


376 041562 
377 041564 
378 041570 


FZ2RMVBO RMO5/3/2 EXT'D 
Rr /RM DRIVER INITIALIZATION CODE 


Sods 
100004 

112761 

000407 


005105 
042705 


013746 
013737 
112737 


000431 


OR TST 


177777 


167077 
000001 


177776 
040654 
000001 
000016 


040650 
040532 


040600 
040552 
041072 
040532 
040562 


000010 
046434 


000103 


177777 
040522 


041700 
120000 
042756 
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040532 


3$: 


040532 
4$: 
58: 


ROL 
BPL 
MOVB 
BR 


(SP) ¢ 


3$ 
#-1,DRVSTA(R1) 
4$ 


R5 
A C<BIT12: B1T08:AL707%81706> 58 
#1 ,DRVSTA(R1) 


(RQ) + 
(SP) 4,R5 
RO 


SEQ 0171 


31S 17 UNSAFE? 

;BR_IF NOT 

3SET UNSAFE INDICATOR 
EXIT 


K MOL, One DRY, AND vv 

BR IF MOL, DPR, DRY, OR vV IS CLEAR 
ZSET DRIVE STATUS TO ONLINE 

TSTEP OVER THE ERROR RETURN 


TRESTORE R5 
sEXIT 


SREQUEST PRE=PROCESSOR=HANDLES SUBSYSTEM REQUEST 


CALL 


RMOS: 
177776 
040576 


1$: 


000002 


040600 
es: 


000C16 38: 
4$: 


JSR 

PNTADR 
RETURN] 
RE TURN2 


MOV 
MOV 


MOVB 
SAVREG 
MO 


RO,RMO5 


PS.-(SP) 
RMVEC+2,PS 
#1,ACTORV 
(RO) ,R2 
16(Re) 
(R2) ,Rl 
RMADR ,R4 
DRYSTACR) 
ULDFLG(R1) 
3$ 
DPINT(R1) 
5$ 

RO. DRVINT 
4$ 
DRVSTAC(R1) 


6$ 
DPRQS(R1) 


5$ 
R1,RMCS2(R4) 


RO.DRVQUE 
#703,2(R2) 
es 


#~1 ,ULDFLG(R1) 


DRVACT(R1) 
8$ 

PC.OPT 

8$ 


Ae 1B1T13,16(R2) ‘ 


8 
PC Cir 
8$ 


;CALL THE RMOS DRIVER 

ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
»RETURN HERE IF QUEUE IS FULL 

sRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
71S AN ERROR CONDITION 


SAVE THE CALLING STATUS 
7DON'T ALLOW ANY RM INTERRUPTS 
sSET “ACTIVE DRIVER’ FLAG 

7 SAVE RO - R5 


:PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLEAR THE STATUS/ERROR INDICATOR 


PICKUP THE DRIVE NUMBER 


;UNIBUS ADDRESS OF RMCS1 


CHECK DRIVES STATUS 


:BR IF ONLINE 

ZUNLOAD COMMAND IN QUEUE? 
:BR IF YES 

: TRYING TO INIT THE DRIVE 


YES 

- THE ORIVE 
RE TURN 

Z1S DRIVE STATUS ONLINE? 

[BR_IF NOT 

ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
sBR IF YES 

sSELECT THE ORIVE 

IPUT THIS REQUEST IN QUEUE 

sQUEVE IS FULL 

31S THIS REQ. FOR AN UNLOAD? 

:BR_IF NO. 

SET THE "UNLOAD IN QUEUE’ FLAG 

iIS THIS DRIVE ACTIVE? 
BR IF YES 

3CALL THE OPTIMIZER 
SET THE “UNLOAD IN QUEUE"" ERROR FLAG 


sEXI 
3GO HANDLE THE PARITY ERROR 


379 041572 
380 041576 


ARADO 
LER ARARR SSS 


RRRRRRRRERRRKKK 
a 
o 


1660 


CZRMVEO_RMO5S/3/2 EXT'D 
RH/RM DRIVER INITIALIZATION CODE 


104412 


DR TST 


046434 
000100 
045772 
040532 


140000 
046542 


100002 
110000 


04057€ 
177776 


177776 
040636 
040562 
046510 


000010 
000111 
004000 


442 04 
443 042040 


122762 
002403 
004737 
0004 34 
005737 
002006 
005737 
100003 


040532 
046532 
140000 
040532 


110000 


000150 
042342 
040634 
040612 
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000016 


000016 
000016 


640574 


000000 


000000 


000016 


000016 


000002 


5$: 


6$: 


7$: 
8$: 


9$: 
10$: 


JSR 
BR 
BIT 
BNE 
JSR 
BR 
TSTB 
BLT 
MOV 
TSTB 


MOV 
RESREG 
TST 


BR 
RESREG 
TST 
CLRB 
MOV 
RIS 


RO, DRVQUE 
9$ 

#B1T06, (R4) 
8$ 
PC,SET.IE 
DRVSTA(R1) 
7$ 


R IF 
AMBITIS!BITI4G, 16(k35 


DRYTYP(R1) 


8$ :BR IF 
MBITIS'BIT01, 16(R2) 
8$ GO 
MBITIS.BITI12, 16 (Re) 


(RO) + 
10$ 


(RO) + 
ACTDRV 
(SP) +,PS 
RO 


SEQ O17. 


PUT REQUEST IN QUEUE 
QUEUE JS FUL. 
7 TE BIT SET ? 


YES 

SET THE INTERRUPT 

RE TURN 

i SEE IF te OFFLINE OR UNSAFE 


UNSA 
3SET OFFLINE ERROR INDICATOR 
:SEE IF OFFLINE OR NONE XISTENT 


OF FL IN 
tie DRIVE NONEXISTENT 


sDRIVE IS UNSAFE 
sRESTORE RO - R5 

SETUP FOR NORMAL RETURN 
sFINISH UP, THEN EXIT 
sRESTORE RO - R5 

CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER’ FLAG 
RETURN 'PS’' TO USER LEVEL 
ZRETURN TO CALLER 


SOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


CALL 


OPT - 


2s: 


3$: 


Vv 
JSR 
SAVREG 
MO 


#DRVNUM,R1 DRIVE NUMBER TO R1 
PC,OPT ;SETUP A COMMAND 

SAVE RO - R5 
°S,-(SP) ZSAVE PROC. STATUS 
ATABIT(R1) ,SRCHWT CLEAR LA SEACH FLAG 
DPRQS(R1) ;RESET THE PORT REQ FLAG **s« 
PC,GETREQ :GET °DPB'' POINTER OF REQUEST 
R2 IS THERE A REQUEST IN QUEUE? 
7$ 3NO--BR TO EXIT 
R1,RMCS2(R4) ;LOAD THE DRIVE ADDRESS ***e««8 
#111,RMCSI(R4) ;CLEAR THE DRIVE 
#BITT1,RMCS1(R4) z:DVA SET ? 
5$ 2TO PORT REQUEST ,IF NOT 
eae pe ONL INE? 
PC, NO--REMO.'E REQUEST FROM QUEUE 


DRVSTA(R1) 


8$ : 
#B1T15.B1T12,16(R2) 
8$ :BR TO 


#150,2(R2) 
3$ 

PC,CI4 

8$ 

DTUW 

4$ 

SEEKFG 

4$ 


POPQUE 
WBITIS'BITI4, 16(R2) 


SET OFFLINE STATUS/ERROR INDICATOR 
31S DRIVE UNSAFE ? 
:BR TO EXIT IF NOT 

sre UNSAFE STATUS/ERROR INDICATOR 
x 


yee REQUEST FOR 1/0? 


YE 

>CALL THE COMMAND INITIATOR 
:BR TO EXIT 
:DATA TRANSFER UNDERWAY? 
ZYES=~-GO START A SEARCH 
;DO0 IMPLIED SEEKS? 
;NO, DO A SEARCH 


042124 


042126 
042132 


490 042214 
491 042220 
492 042222 
493 042224 
494 042230 
495 

496 042234 
497 042240 
498 062244 
499 042250 
500 042254 


004737 


000207 


004737 
010237 
010203 
013704 
010164 
062703 
062704 


000137 


013704 
010164 
016246 
004937 
000034 


“Z7RMVBO RMOS/3/2 EXT'D OR TST 
RH/RM DRIVER INITIALIZATION CODE 


042126 
042234 
177777 


035230 


042756 
000100 


045772 
177776 


046532 
040572 


040650 
000010 


000004 
000002 


045462 


045462 


000002 
045462 


040634 
042720 
040650 


045462 
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SEQ 01, * 


Jsk pc .C11 ;START A DATA TRANSFER 
43: JSR PC,CI3 :START A SEARCH 
BR $ “GO TO THE EXIT 
040562 5$: MOVB  #-1,DPROS(R1) SET PORT REQUEST INDICATOR 
MOV R1,R3 SSET UP TO ADDRESS WORDS 
ASL R3 “CONVERT TO WORD INDEX 
040614 MOV #15000. , TIMER(R3) :START 15. SECOND TIMER 
BR 7$ EXIT 
6$: JSR PC,CI? “PROCESS THE PARITY ERROR 
7$: BIT #BIT06, (R4) [SEE IF ‘IE* ALREADY SET 
BNE 8$ SBR IF SET 
JSR PC,SET.IE SSET ‘IE’ WITHOUT A ‘TRE’ 
8$: MOV (SP)+,PS “RESTORE PROC. STATUS 
RESREG TRESTORE RO - R5 
PC 
= COMMAND INITIATOR 
CALL 
: MOV #DRVNUM,R1 :DRIVE NUMBER 
: MOV #DPBR2 TADDRESS OF DPB 
: JSR PC,CI? 7C1?= C11,C13, OR C14 
3 s WHERE : 
: SCI1=DATA TRANSFER 
: >CI3=SEARCH REQUESTED BY DATA XFER 
'CIG=NOT DATA TRANSFER 
Cll: JSR PC ,POPQUE ZREMOVE REQUEST FROM ‘DRIVES wAIT’’ QUEUE 
MOV R2. TRNSWT [PUT REQ. IN TRANSFER WAIT QUEUE 
MOV R2.R3 [DPB ADDRESS TO R3 
MOV RMADR RS [RMCS1 ADDRESS 
MOV R1RMCS2(R4) = SELECT DRIVE 
ADD ALR [DESIRED WORD COUNT 
ADD #2-RL [RMWIC ADDRESS 
MOV (R3) +, (RG) + ‘LOAD WORD COUNT 
MOV (R3)+,(R4)4 ‘LOAD BUFFER ADDRESS 
MOV (R3)+.=(SP) “LOAD SECTOR AND TRACK 
JSR RO,WRT RM “CALL THE LOAD(WRITE) ROUTINE 
RMDA T INDEX OF REGISTER TO LOAD 
C17 TERROR RETURN ADDRESS 
MOV (R3)+,-(SP) “LOAD CYLINDER ADDRESS 
JSR RO.WRT RM 
i 
MOV 2(R2),-(SP) SLOAD ‘COMMAND+G0"', '‘A17&A16"", AND "PSEL"’ 
JSR RO, WRT .RM 
oy 
MOV R1,DTUW :SET ‘DATA TRANSFER UNDERWAY'’ 
JUMP c1§ 
C13: MOV RMADR ,R4 :RMCS1 ADDRESS 
MOV R1,RMCS2(R4)  S SELECT DRIVE 
MOV 12(R2),-(SP)  :DESIRED CYLINDER ADDRESS 
JSR RO, WRT RM 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0174 
501 042256 042756 CI? 
502 042¢60 116203 (00010 MOVB 10(R2) ,R3 PICKUP SECTOR ADDRESS 
503 042264 163703 040656 SUB MXWNDW,R3 ;BACKUP BY MAX, SEARCH FOR 1/0 wINDOW 
504 042270 002002 BGE 1$ 
505 042272 062703 000040 ADD #32. ,R3 
506 042276 010346 1$: MOV R3,-(SP) COMBINE THE ADJUSTED SECTOR wi TH 
507 042300 116266 000011 000001 MOVB 11(R2),1(SP) i THE DESIRED TRACK 
508 042306 004037 045462 JSR RO, WRT .RM ;LOAD DESIRED TRACK & SECTOR 
509 042312 000006 RMDA 
$10 042314 042756 C17 
511 042316 012746 00013) MOV #131,2(SP) START A SEARCH 
512 042322 004037 045462 JSR RO,WRT.RM 
513 042326 000000 RMCS1 
514 042330 042756 CI? 
515 062332 156137 040636 040574 BISB ATABI« (R1),SRCHWT ZSET “’SEARCH WAIT’ KEY 
ae 042340 000567 BR C15 
518 042342 013704 040650 C14: MOV RMADR , RS RMCS1 ADDRESS 
519 042346 010164 000010 MOV R1,RMCS2(RG) SELECT DRIVE 
520 04235¢ 116203 000002 MOVB 2(R2) ,R3 sPICKUP THE REQUESTED COMMAND 
521 042356 122703 000131 CMPB ale WR3 31S IT A SEARCH COMMAND? 
S22 042362 001007 BNE 3BR IF NO 
523 042364 016246 G600010 MOV 19(R2), -(SP) ZLOAD DESIRED TRACK & SECTOR 
524 042370 004037 045462 JSR RO,WRT.RM 
525 042374 000006 RMDA 
526 042376 042756 C17 
527 042400 000403 BR o$ :GO LOAD CYLINDER 
528 042402 122703 000105 1$: CMPKs #105,R3 31S 17 A SEEK COMMAND 
529 042406 001007 BNE 3$ BR IF NO 
530 042410 016246 000012 2s: MOV 12(R2) ,-(SP) SLOAD DESIRED CYLINDER 
531 042414 004037 045462 JSR RO,WRT RM 
532 042420 000034 RMDC 
533 042422 042756 CI? 
534 042424 000546 BR C16 
535 042426 122703 000115 3$: CMPB #115.R3 31S 17 AN “OFFSET’’ COMMAND? 
536 042432 001013 BNE 4$ :BR JF NO 
537 042434 004037 045302 JSR RO.RD.RM sMERGE THE OFFSET VALUE INTO RMOF 
538 042449 0006032 RMOF BUT DON'T CHANGE THE UPPER 
539 042442 042756 C1? 
540 042444 116216 000001 MOVB T(R2), (SP) BYTE WHEN LOADING THE 
5417 042450 004037 045462 JSR RO.WRT RM REGISTER (RMOF) 
542 042454 000032 RMOF 
543 042456 042756 C17 
544 042460 000530 BR C16 7G90 START THE COMMAND 
545 042462 122703 000107 4$: CMPB #107,R3 31S IT A ‘RECALL IBRATE'’ COMMAND ~ 
546 042466 001525 BEQ C16 7BR IF YES 
547 042470 122703 000117 CMPB #117,R3 31S 17 A_RETURN TO CENTER? 
548 042474 001522 BEQ C16 :BR IF YES 
549 042476 122703 9000103 CMPB #103,R3 31S IT AN "'UNLOAD'’ COMMAND? 
550 042502 001016 BNE 5$ BR IF NO 
551 0425046 112761 000001 040522 MOVB M1,DRVACT(RI)  ;3SEY THE DRIVE ACTIVE INDICATOR 
552 042512 105061 040532 CLRB DRVSTA(R1) [PUT DRIVE STATUS TO OFFLINE 
553 042516 112761 000007 0406600 MOVB #1,ULDFLG(R1) SET "UNLOAD IN PROGRESS** FLAG 
$54 042524 010346 MOV R3,-(SP) 3START THE *UNLOAD'' COMMAND 
555 042526 004037 045462 JSR RO,WRT.PM 
556 042532 000000 RMCS1 
557 042534 042756 CI? 


ZRMYBC RMOS/3/2 EXT'D OR TST 
Rre/RM DRIVER INITIALIZATION CODE 


558 042536 
559 540 00143 
045302 


000001 
045462 


000141 
000006 
090010 


0000171 
045302 


016203 


116237 
116205 
004037 
000000 
042756 
012623 


042604 
042619 
042616 
042622 
576 042626 
577 042630 
042626 
000002 


000145 


045462 


046532 
000200 
040610 


045654 


052762 
005737 
100002 
004737 
000297 


006301 
012761 
006201 
112761 
000207 


010346 
004037 
000000 
042756 
000761 


032764 


047716 


042720 
023420 


000001 


045462 


605 042752 
606 042754 


607 

608 042756 
612 042764 
616 042766 
617 042770 
§18 042772 


622 
623 043000 


010000 


012762 
012746 


104600 
0007117 


G 14 
MACRO v04.00 4-APR=81 11:57:12 PAGE 34-10 


000001 


042626 


042626 


000016 


040614 
040522 


000010 


006016 


5$: 


of: 
7$: 


8$: 


9$: 


108: 
118: 


12$: 


13q: 
C15: 


C16: 


ao 


2s: 


C178: 


RTS 
CMPB 
BNE 
JSR 
RMOS 
C17 
MOVB 
JSR 
RMOF 
C17 
BR 
CMPB 
BNE 
MOV 


PC 
#143,R3 
6$ 


RO,RD.RM 


1(R2),1( SP) 
RO,WRT.RM 


12$ 
#141,R3 
10$ 

6(R2) ,R3 
10(R2) ,9$ 


11(R2),R5 
RO,RD.RM 


(SP)+,(R3)+ 


INIT. 
INDEX OF LAST REG. TO MOVE 
7READ RH/RM REGISTER 

7 INDEX OF REG. 


7GET THE CONTENTS OF RH/RM REG. 


SEQ 0175 


Aer 10 USER 


IT A ‘SET FORMAT’’ COMMAND? 


BR IF NO 
TREAD THE OFFSET REGISTER 


ZCOMBINE "FMT 16"',"ECI'', AND 'HCI*’ 
SLOAD "'FMT16"', “ECI™’, AND/OR ‘HCI’. 


‘A a ad REGISTER’’ COMMAND? 
[POINTS TO 1ST ADDRESS OF WHERE 


770 PUT THE REGISTER(S) 
THE INDEX FOR THE FIRST REG. 


TO READ 


9$,R5 sLAST REG. BEEN READ? 
12$ sGET OUT IF YES 
#2,98 2 INCREASE THE INDEX BY 2 
8$ LOOP=-MORE TO READ 
#145,R3 iis IT A *‘SELECT DRIVE’’ COMMAND? 
12$ SBR IF YES 
R3,-(SP) :LOAD THE COMMAND 
RO,WRT.RM 
PC ,POPQUE sREMOVE REO. FROM QUEUE 
#B1107,16(R2) =: SET THE ‘DONE’’ BIT 
SAVEFG sSAVE THE RH/RM REGISTERS? 
13% [BR IF NO 
PC, SVRH76 3YES--GO SAVE THE REGISTERS 
PC ZRETURN TO USER 
R1 
S1OON0 a5 MER EMY? START 10. SECOND TIMER 
R 
M1,DRVACT(RI) SET THE DRIVE ACTIVE 
PC sRETURN TO THE USER 
R3,-(SP) ;LOAD THE COMMAND 
RO, WRT RM 
eee 
° 
C15 
MBIT12,RMCSO(RG) DRIVE NON-EXISTENT ? 
R2 ANYTHING IN QUEUE 7 
2$ - IF QUEUE : THERE 
PC OTHERWISE KIT 
MBITIS.BIT11, 16¢h2) SET "PARI TY’ ERROR INDI ATOR 


#itt,<(SP) 


D0 A DRIVE CLEART 


74M JBO RMOS/372 EXT'D OR TS? 


ae /RM DRIVER 
043004 


0643054 
043056 


686 043302 
043304 


004037 


104412 
005001 
005003 
105761 
001003 


INITIALIZATION “OLE 


045460 


046414 
040562 


040572 


04057¢ 
177777 


040522 
040562 


040572 
040634 


046510 


010000 
100002 


162000 
177777 
040522 
040562 
040634 


177777 
040572 
040600 
010000 


000902 
177770 


177777 
040572 
046336 
000040 


046414 
040532 
040542 
045772 


MAT HO 


040634 


000070 
000016 


000016 
040614 


040634 


000010 


040634 


C00010 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


164.90 GeAPROBT 19557; 


~ SR 
RM(S1 
C18 
JSR 
CLRB 
CLRAB 
CLRB 
CMP 
BNE 
CLR 
MOV 
RTS 


RESREG 
RTS 


RO, WRT RM 


PC, EMPT YQ 

DPRQS(R1) 

ULDFLG(R1) 
DRVACT(R1) 
R2, TRNSWT 

2$ 


TRNSWT 
#~1,DTUW 
PC 

R1 

R3 
DRVACT(R1) 
es 
as 


TRNSWT ,R2 
R1,DTUW 


3$ 
PC,GETREQ 
Re 


5$ BR IF 
ver ee RMCS2(R4) a 
#31715!B1701, 160R2) 
5$ CONT 
#BIT1S:BIT10, 16(R2) 


a~1, TIMER(R3) 
DR'VACT(R1) 
DPRQS(R1) 
R1,DTUw 

6$ 


#~1 ,DTUW 
TCP EGS 
ULDFLG(R1) 


#BITI2, RICS2(R4) 
R1 


#2,R3 
#*C7,R1 
1$ 
M-1,DTUd 
TRNSwT 


PC,CLRQUE 
Agree ten 


PC, EMPTYQ 


* DRVSTA(R1) 


DRVTYP(R1) 
PC,SET.3 


PC 


Z INTERRUPT SERVICE ROUTINE 
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SEQ 0°” 


ZEMPTY THE QUEUE 

CLEAR THE PORT REQUEST FLAG 

;CLEAR THE UNLOAD IN QUEUE FLAG 
DRIVE IS IDLE 

IF TRIS DRIVE HAD AN I/O REQUEST 

7 IN PROGRESS CLEAR ALL OF THE FI AGS 


SSAVE RO = R5 


DRIVE ACTIVE? 

SRR IF IN ACTIVE © 

sPORT REQUEST 

BR IF NOT 

GET THE *’TRANSFER wAI7’’ QUEUE 

DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 


7BR YE 

zGET THE DPB POINTER 

ZQUEUE ENTRY FOR DRIVE ? 
NOT 

s'NED’ SET ? 
NOT 

aaa "DRIVE NON-EXISTENT’ INDICATOR 

7;SET ‘“NON-CLEARABLE PARITY’’ ERROR INDICATOR 
3 STOP. THE TIMER 


ZSET ‘DRIVE ACTIVE’ TO IDLE 
:CLEAR PORT REQUEST FLAG 


:1S THIS DRIVE SETUP FOR A TRANSFER 
;BR IF NOT 
sRESET THE INDICATOR 


3CLEAR THE TRANSFER QUEUE 
: CLEAR UNLOAD | FLAG 

*"NED* SET ? 
:MOVE TO THE NEXT DRIVE 


3BR IF MORE DRIVES 

3NO DATA TRANSFERS UNDERWAY 
CLEAR THE 
sCLEAR ALL OF THE REQUEST QUEUES 
:D0 A MASSBUS INIT. 

3 CONT INUE 

CLEAR THE DRIVE'S QUEUE 


"TRANSFER WAIT" QUEUE 


2SET DRIVE TO OFFLINE 

sCLEAR THE DRIVE et INDICATOR 
[SET ‘IE’ WITHOUT ‘'TRE'' 

SRESTORE RO - R5 


RETURN 


PRM IBU RMOS 4372 EXT'D 


Re GM ORIVER INITIALIZATION CODE 


690 

06 112737 
104412 
013704 
013701 


AANA A AIAN 
N 


PA a 


a 
& 
REERRRRERK 


Ww 
as 


000002 


105061 
012737 
006301 
012761 
006201 
013702 
005037 
052762 
010164 
004037 
000000 
042756 
006126 
100417 
005737 
100002 
004737 
004737 
005702 
001403 
004737 


718 043432 
719 043436 
720 043440 
72> 043444 
72? 043450 
728 043452 
729 043454 
730 043460 
731 043462 
732 043466 006207 
052762 
004737 
004737 
012714 
012714 
000207 


736 
737 043506 
738 043512 
739 043516 
740 
763 


765 043520 
766 043524 
767 043526 
£68 043532 
769 043534 
770 043536 
771 043540 100405 
772 043542 004037 

043546 104001 


116402 


OR TS! 


¢00001 


040650 
040634 


043359 
043520 


040576 


040522 
177777 


177777 
040572 
040572 
000200 


006010 
045302 


040610 
045654 
046510 
041700 
000113 
100100 
046414 
045654 


040111 
000113 


000016 
045302 


046600 


MACRO ¥04.00 


040576 


oe 


040634 
040614 


000016 


060016 


ISS: 


1$: 
2s: 


TO: 


es: 


3$: 


4-APR=B1 


MOVB 
SAVREG 
MOV 


RTS 


#1, ACTORV 


RMADR , RS 
DTUw,R1 
1$ 


PC,"D 
PC,SC 


AC" DRV 


ROUT INE 


DRVACT(R1) 
a@-1 ,DTUW 
R1 


#~1,TIMER(R1) 
R1 


TRNSWT Re 
TRNSWT 


#B1T07,16(R2) 
R1,RMCS2(R4) 


RO,RD.RM 


(SP)+ 

3$ 

SAVEFG 

1§ 

PC, SVRH70 
PC, GETREQ 
Re 

2s 

PC,OPT 

PC 

#113, (R4) 
PC 


#B1T15!B1T06, 16082 


PC, EMPTYQ 
PC,SVRH70 
#40111, (R4) 
#113, (R4) 
PC 


7 SPECIAL CONDITION ROUTINE 


SC: 


MOVB 


RMAS (R4) ,R3 
2$ 
RO,RD.RM 


(SP) +. 
1$ 
ROZE Sane 


ZGET ‘DATA TRANSFER UNDERWAY'' 
aN IF NO DATA TRANSFER UNDERWAY 
7 CALL. 
CALL SPECIAL fone 


1 14 
11:57:72 PAGE 36-12 


sSET “ACTIVE DRIVER’ FLAG 
SAVE RO - R5 
: ADDRESS OF RMCS1 


INDICA‘OR 
TRANSFER DONE 


sRESTORE RO - 
sCLEAR "'ACTIVE DRIVER’ FLAG 
TURN 


SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


GET ‘'DPB’’ ADDRESS FROM THE 

7 TRANSFER WAIT QUEUE--CLEAR QUEUE 
:SET DONE 

sSELECT THE DRIVE 

7 TRANSFER ERROR(TRE=1)? 


31S TRE=1 ? 

3BR IF YES 

SAVE THE RH/RM REGISTERS? 
;BR IF NO 


ZYES--SAVE THE REGISTERS 
[GET DPB POINTER 
ENTRY FOR DRIVE ? 


BR IF NOT 
2 CALL OPTIMIZER 


RE TURN 
ZRELEASE THE DRIVE 
RETURN 


:SET DATA ERROR FLAG 
MPTY THE ‘DRIVES WAIT'’ QUEUE 
sSAVE THE RH/RM REGISTERS 
TISSUE A ‘DRIVE CLEAR'' 

Zs ISSUE A RELEASE TO THE DRIVE 
RETURN 


READ ''RMAS'' 
“BR IF ANY ‘ATA’ BITS SET 
READ CONTROL AND STATUS REGISTER 


S18 “‘1E''=1? 

YES, NO DRIVES TO CHECK 

ZSAVE THE ADDRESS IN ‘SESCAPE* 
[REPORT AN ILLEGAL INTERRUPT 
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RE/RM DRIVER INITIALIZATION CODE SEQ O17 
>73 043550 006737 045772 JSR PC,SET.IE SET INTERRUPT ENABLE 
"74 043554 (600207 1$: RTS PC *RETUR 
775 643556 005046 2$: CLR ~(SP) :PROCESS ALL DRIVES THAT HAVE 
776 043560 110316 MOVB «23, (SP) TAN! =] 
777 04356¢ 012703 000001 MOV #13 
778 043566 005001 CLR Rl 
780 043570 030316 SC3: BIT R3, (SP) sATAF1? 
781 043572 001005 BNE sc§ YES 
783 043574 005201 SC4: INC R1 sMOVE TO THE NEXT DRIVE 
784 043576 106303 ASLB ORS 
785 043600 001373 BNE $C3 ZBR IF MORE TO CHECK? 
786 043602 005726 TST (SP) + SCLEAN OFF THE STACK 
ute 043604 000207 RTS PC ZRETURN TO USER 
789 043606 105761 040552 SCS: TSTB DPINT(R1) SINITIALIZING THE DRIVE ? 
790 043612 001402 BEQ 1$ [BR IF NOT 
791 043614 000137 044532 JMP $C13 “PROCESS THE DRIVE 
792 043620 7105761 040562 1$: TSTB DPRQS(R1) SPORT REQUEST OUTSTANDING ? 
793 043624 001402 BEQ 2$ 'BR 1F NOT 
794 043626 000137 044532 JMP §c(13 ZSTART THE OUTSTANDING COMMAND 
795 043632 105761 040532 2$: TSTB —s DRVSTA(R1) CHECK THE DRIVE STATUS 
796 043636 003023 BGT 4$ “BR IF ONLINE 
797 043640 105761 040600 TSTB ULDFLG(R1) ; UNLOAD he PROGRESS? 
798 043644 003420 BLE 4$ [BR IF 
799 043646 004737 046510 JSR PC,GETREQ 7GET DPS POINTER 
800 043652 004737 045654 JSR PC, SVRH70 ‘SAVE THE RH/RM REGISTERS 
801 043656 004737 044462 JSR PC.SC12 ‘SAVE RMDS, RMERT, RMER2. AND RMR 
802 ZALSO DO A DRIVE INIT (DRVINT) 
803 043662 105761 040532 TSTB —DRVSTA(R1) ;D1D DRIVE COME ONL INE? 
804 043666 003414 BLE 5 
805 043670 032737 040000 040512 BIT WBITIG.RMERRS “WAS THERE AN ERROR? 
806 043676 001000 BNE 3$ [BR 1F ERROR 
810 043700 013705 040514 3$: MOV RMERRS+2,R5 “YES -- PICKUP RMER1 AND 
811 043704 000504 BR SC6A 7GO PROCESS THE ERROR 
812 043706 105761 040522 48: TSTB —s DRVACT(R1) “DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
B13 043712 001033 BNE S(6 ‘BR IF EITHER 
814 043714 004737 044462 JSR PC,SC12 =SAVE RMDS, RMER1, RMER2, AND RMMR2 
815 [ALSO DO A DRVINT 
816 043720 105761 040552 5$: TSTB —s DPINT(R1) :TRYING TO INIT THE DRIVE ? 
817 043724 001323 BNE $04 :BR_IF YES. CHECK ON MORE DRIVES 
818 063726 105761 040532 TSTB DRVSTA(R1) : CHECK ON DRIVE' S STATUS 
819 043732 100412 _ BMI é$ “BR IF UNSAFE 
820 043734 032737 020000 040516 BIT ABIT13,RMERRS*+4 :ADDRESS PLUG CHANGED ? 
821 043742 001013 BNE 7$ :BR IF YES 
825 043744 012746 000111 MOV #111,-(SP) SDRIVE CLEAR 
826 043750 004037 045462 JSR RO, WRT RM SWRITE THE COMMAND INTO RMCS1 
827 043754 000000 RMCS1 “REGISTER INDEX 
828 043756 044322 sca “PARITY EXIT ADDRESS 
829 043760 011605 6$: MOV (SP) ,R5 *PICKUP (RMAS) BEFORE THE ERROR CALL 
830 043762 004037 046600 JSR RO.ES.SAV "SAVE THE ADDRESS IN 'SESCAPE ' 
043766 104002 EMT e :REPORT THE UNEXPECTED ATTENTION 
831 043770 000701 BR (4 'GO CHECK FOR MORE ATA'S 
B32 043772 7$: 
043772 004037 046600 JSR RO,ES.SAV :SAVE THE ADDRESS IN ‘SESCAPE" 


043776 104005 EMT 5 REPORT THE ADDRESS PLUG CHANGE 


C2RMVBO RMO5S/3/2 EXT'D 
RK/RM DRIVER INITIALIZATION CODE 


ere rrr re re 


833 044000 


859 044114 


861 044116 
862 044120 
863 044122 
864 044124 
865 044126 
866 044134 
867 044136 
868 044142 


886 

887 044244 
891 044250 
892 044254 


000675 


044322 
006105 


105761 


DR TST 


177777 
046510 


045302 


040522 
100210 
045302 


045654 
000111 
045462 


100240 
045302 


177777 
045654 
110000 


010000 


177777 
000001 


035230 


043574 
100220 


040522 
046532 
040600 
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SC6. 
040614 MOV 


000016 BIS 
1$: JSR 


SCOA: ROL 
BM 


000016 BIS 
1$: JSR 


040532 MOVB 
000016 als 
es: BIT 


040522 MOVB 
040532 MOVB 


040614 MOV 


000016 3$: BIS 
SCZ: CLRA 


SEQ © 7s 
5C4 sCHECK FOR MORE DRIVES 
RI :SETUP TO ADDRESS WORDS 
#-1,TIMER(R1)  =STOP THE TIMER 
R1 *RESTORE THE DRIVE ADDRESS 
PC,GETREQ “GET THE DPB POINTER FROM THE QUEUE 
R1.RMCS2(R4) *SELECT DRIVE 
sci “PROCESS THE SEARCH 
RO,RD.RM “READ THE RMS’ STATUS REG. 
(SP) ,R5 :AND PUT IT IN RS 
(SP) + SWAS THERE oN ERROR? 
1$ “BR IF ERRO 
DRVACT(R1) i CHECK BRIVE! S STATE 
$¢11 IF DRIVE ACTIVE WITH ORDER 
me1115:01107:81763, ,16(R2) : INFORM USER OF ERROR RECOVER COMPLETION 
RO,RD.RM ZREAD ERROR REGISTER #1 
(SP) +,R5 ;AND SAVE IT IN RS 
PC,SVRH70 -- SAVE RH/RM REGISTERS 
wiil,-(SP) “ISSUE A DRIVE CLEAR 
RO, WRT .RM 
RS ZWAS UNSAFE" CONDITION -1? 
1$ TBR IF 
R2 ANYTHING IN QUEUF 7 
$C7 IF NOT 
3111581707181 705, 16(R2) > INFORM USER OF ERROR 
RO,RD.RM ZREAD DRIVE STATUs REG. #1 
(SP) .R5 : SAVE, RMDS IN RS 
(SP) + 2" ERR '=1? 
2$ [BR IF NO--UNSAFE CLEARED 
1 DRVSTACRI) :DRIVE IS UNSAFE 
PC,SVRH70 AVE RH/RM REGISTERS 
waits: "BIT12, 16(R3) s INFORM USER OF UNSAFE ERROR 
rS1T12.R5 MOL’ = 1? 


3$ 7BR_IF YES 
W-1,DRVACT(R1) 5A TIVE ERROR RECOVER 
Serene nen? 3 ONL INE 


R 
#15000. , TIMER(R1) ;START 15. SECOND TIMER 

84 

WS1T15!B1107!B1T04, 16(R2) INFORM USER OF ERROR 
DRVACT(R1) ;DRIVE 1S IDLE , 
PC ,POPQUE “REMOVE THE QUEUE 

ULDFLG(RT) [UNLOAD IN PROGRESS OR QUEUE? 


893 044260 
894 044262 
895 044266 
896 044274 
897 044300 
901 
We 044306 
903 044312 


916 044342 
917 044346 


& 
919 044352 
920 044356 
044360 
922 044364 
923 044370 


925 044376 
926 044400 
927 044404 
928 044412 
929 044416 
930 044420 
044424 
932 044432 
933 044540 


937 044456 
939 044462 


946 
947 044526 
rats 044530 


9 
950 044532 
951 044534 
952 044542 
953 044544 
954 044550 
955 044556 


Uses ete. Ge: 


CZRMVBO RMOS/3/2 EXT'D 
RH/RM ORIVER INITIALIZATION CODE 


003002 
105061 
116164 
105761 
100406 
012746 
004037 
000000 
044322 
000137 


105761 
601405 
004737 
004737 
000402 


004737 
000137 


105761 
003402 
105061 
105061 
136137 


001012 
004737 


052762 
005737 


000137 
010164 


005726 
000674 


606301 


105761 


DR TST 


040600 
040636 
040532 


000111 
045462 


043574 
040522 


046510 
042756 


043000 
043574 


040600 


040600 
040522 
040636 


046532 
000200 
040610 


045654 
040636 
040636 


177777 


04° 700 
043574 


000010 
000012 
000014 
000042 
000040 
041072 


177777 


000010 
040636 
040552 
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BGT 
CLRB 
MOVB 
TST 
BMI 


000016 1$: 


es: JMP 
sc8: 


1$: 
2$: JMP 
SC11: 


040574 


000016 


Q00016 2%: 
040574 


040614 


SCle: 
040512 
040514 
049516 
040520 


1$: TST 


SC13: 
940614 


000016 
1$; TSTB 


#111,-(SP) 
RO,WRT RM 
SC 
DRVACT(R1) 
t 

PC,GE TREO 
PC.CI7 


-C,C178 
$¢4 


ra a 
ULDFLG(R1) 
DRVACT(R1) 
ATABIT(R1) 


2s 


PC ,,POPQUE 
#B1T07,16(R2) 


SEQ O'e 


:BR IF NOT 
; CLEAR UNLOAD FLAG 
»RMAS (RS) ;CLEAR ATTENTION BIT 
31S THE DRIVE UNSAFE ? 
BR IF IT IS 
DRIVE CLEAR COMMAND 
WRITE THE COMMAND IN'O RPCS1 
sREGISTER INDEX 
PARITY EXIT ADDRESS 
;CHECK FOR MORE DRIVES 


IS DRIVE IDLE? 
YES 


“GET DPB POINTER 
SPROCESS THE PARITY ERROR 
+ CONT [NUE 


PROCESS THE UNCORRECTABLE PARITY ERROR 
7 CHECK MORE DRIVES 


Pita IN PROGRESS’’? . 


:BR 
7CLEAR UNLOAD FLAG 
SET DRIVE IDLE 
: DOING A SEARCH OPERATION FOR 
OMMAND ? 


AN 1/0 € 
7BR OIF vis. 
3 REMOVE Seer FROM QUEUE 
2SET *DONE"’ 


,SRCHWT 


SAVEFG SAVE THE REGISTERS? 

2$ ;BR IF NO 

PC ,,SVRH70 YES~-SAVE ALL OF THE RH/RM REG'S 
ATABIT(R1) .RMAS (84) ;CLEAR ATTENTION BIT 
ATABIT(R1) ,SRCHWT CLEAR IMPLIED SEEK SET 
R1 ;WORD INDEX 

4-1, TIMER(R1) : STOP CLOCK 

R1 RESTORE R1 

PC ,OPT START A REQUEST 

SC4 CHECK FOR MORE DRIVES 


R1,RMCS2(R4) 


SELECT DRIVE 


RMDS(R4) ,RMERRS :SAVE THE FOUR REGISTERS THAT 


RMER1(R4) ,RMERRS*+2 WILL TELL US SOMETFING 
RMER2(R4) ,RMERRS+4 

RMMR2 (R46) ,RMERRS+6 

RO,DRVINT ZENIT. THE STATE OF THE DRIVE 
1$ 7 TAKE ERROR EX:iT 

PC RETURN 

(SP)+ sPOP PC OFF CF THE STACK 

S¢8 PROCESS THE PARITY ERROR 

Ri ;SETUP_TO ADDRESS WORDS 

ay eee ;STOP THE TIMER 


R1,RMCS2(R4) 
ATABIT(R1) ,RMAS (RG) 


DPINT(R1) 





—— 


“SELECT THE DRIVE 
;CLEAR THE ATTENTION BIT 
SINITIALIZING THE DRIVE ? 


LT TEAR TE re ge re 


CZRMVBO _RMO5/3/2 EXT'D DR TST 


Mis 
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s SOFTWARE TIMEQUT ROUTINE 


RH/RM DRIVER INITIALIZATION CODE SEQ 0181 

956 044562 001424 BEQ 2$ BR IF NOT 

957 044564 105061 640552 CLRB DPINT(R1) ;CLEAR THE INIT INDICATOR 

958 044570 004037 041072 JSR RO,DRVINT 3GO INIT THE DRIVE 

959 044574 000240 NOP :DUMMY PARITY ERROR RETURN 

960 044576 105761 040532 TS'B DRVSTA(R1) DRIVE ONLINE ? 

961 044602 003014 BGT 2$ 3BR IF YES -= START ORDER 

962 044604 005702 TST R2 ZQUEVE ENTRY FOR THE DRIVE 

963 044606 001426 BEQ $ ;BR IF NOT 

964 044610 004737 046510 JSR PC,GETFLQ :GET OPB ADDRESS 

965 044614 052762 140000 000016 BIS #B8i715.B1T14,16(R2) : INFORM USER THAT DRIVE OFFLINE 
966 044622 004737 045654 JSR PC,SV&H70 7SAVE THE REGISTERS 

970 044626 004737 046532 JSR PC ,POPQUE ZREMOVE THE QUEUE 

971 044632 000414 BR 3$ 

972 044634 032764 004000 000000 2$: BIT #B1711,RMCS1(R4) ZDVA SET ? 

975 044642 001066 BNE 4$ 7SET THEN CALL OPT 

974 044644 006301 ASL R1 

975 044646 012761 035230 040614 MOV #15000. , TIMER(R1) ZSTART 15. SECOND TIMER 
976 044654 006201 ASR R* 

977 044656 000402 BR 3$ 

978 044660 004737 041700 48: JSR rC,OPT ;START THE PENDING REQUEST 

te 044664 000137 043574 3$: JMP 3C4 sPROCESS OTHER DRIVES 

a sRM TIMER ROUTINE 

3CALi 

983 7 MOV AT IME ,- (SP) ZELASPED TIME IN MILLISECONDS ON THE STACK 
one Peat JSR PC,RMTMR :CALL RMOS TIME ROUTINE 

986 044670 005737 040576 RMTMR: TST ACTDRV 7CHECK "‘ACTDRV & ACTSTR'’ 

987 044674 001027 BNE 4$ ZF NON ZERO EXIT 

988 044676 112737 000001 040577 VAs #1,ACTSTR SET “‘ACTSTR’’ 

989 044704 104412 SAVREG ZSAVE RO - R5 

990 044706 005001 CLR R1 ZSTART WITH DRIVE 0 

991 044710 005003 CL? R3 

992 044712 005763 040614 1$: TST TIMER(R3) 71S THE TIMER RUNNING? 

993 044716 002406 BLT 2s :BR IF NO 

994 044720 166663 000002 040614 SUB 2(SP),TIMER(R3) =; COUNT THE INTERVAL 

995 044726 003002 BGT es 7BR IF NO SOFTWARE TiMECUT 

996 044730 004737 044760 JSR PC,STO 3CALL SOFTWARE TIMEOUT ROUTINE 
997 044734 005201 2s: INC R1 sMOVE TO NEXT DRIVE 

998 044736 005723 TST (R3)+ 

999 044740 022701 000010 CMP #8.,R1 ;OUT OF DRIVES? 
1000 044744 003362 BGT 1$ 7BR IF NO 
1001 044746 104413 3$: RESREG ZRESTORE RO ~ R5 
1002 044750 105037 040577 CLRB ACTSTR sZERO ACTIVE SOFTWARE TIMEQUT ROUTINE FLAG 
1003 044754 012616 S$: MOV (SP)+, (SP) sADJUST THE STACK 

1004 044756 000207 RTS PC SRETUPN 


SNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 


1 
1 
1007 
1008 
1009 OR GREATER 
1010 ; 
1011 7CALL: STO 
1012 ; MOV ADRVNUM,R1 sDRIVE NUMBER 
1013 ; JSR PC,STO 7 CALL 
1014 ; RETURN 
1015 





1016 044760 
1017 044762 
1018 


1057 045136 


8 
1059 045140 
1060 045144 
1061 045146 
1062 045152 
1063 045154 
064 045162 


066 045164 
1067 045170 


1069 045172 
1070 045176 


1077 
1078 045230 


Sere 


CZRMVBO RMO5/3/2 EXT'D 
RH/RM DRIVER INITIALIZATION CODE 


010146 


000470 


116405 
136105 
001007 
105761 
001021 
105761 
001035 
000454 


105761 
001003 
105761 
000442 


004737 
000437 


105061 


000414 
012763 


DR TST 


040650 
000010 
04530? 


04055¢ 
040562 


040572 
040634 


045270 


2 
177777 
000016 
040636 
040552 
040562 


040552 
040562 
177777 


t 


043056 


040552 
040532 
177777 
046510 


140000 


177777 


N 
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000016 


040634 


040614 


040614 


000016 


040614 


STO: 


STO: 


1$: 


STO2: 


STO5: 


1$: 


STOS: 


STO6: 


STO?: 


R1,-(SP) 
R2,-(SP) 
R3,~(SP) 

R4, Boke 
RMADR 

R1 "AMC S3 (RG) 
0,RD.RM 


(Si) + 
STO2 

DPINT(R1) 
$T02 

DPRQS(R1) 
TO02 


STO 
TRNSWT ,R2 
R1,DTUW 
1$ 


PC,GETREQ :GE 
ABIT15!BIT09,16(Re2) 


14 
34-17 


:SAVE R1 

7 SAVE R? 

SAVE R3 

:SAVE RS 

;GET ADDRESS OF ‘'RMCSI"' 
:SELECT THE DRIVE 

ZREAD ‘DRIVE STATUS REG’’ 


31S ‘DRY’ '=1? 

BR IF YES 

TRYING TO INTIALIZE THE DRIVE ? 

:BR IF YES 

OES. PORT REQUEST FOR THE DRIVE ? 


7B 
zPICKUP TRANSFER WAIT QUEUE 
7 TRANSFER UNDERWAY ON THIS DRIVE? 
7BR IF YES 
71f NOT DON'T BOTHER DRIVES 
T DPB ADDRESS 
sSET THE ERROR FLAGS 


PC, SVRH70 ZSAVE RH/RM REGISTERS 

DRVACT(R1) :DRIVE IS IDLE 

ULDFLG(R1) ZCLEAR THE UNLOAD FLAG 

TRNSWT : CLEAR DPB ADDRESS 

#-1 ,DTUW :CLEAR THE TRANSFER DRIVE #4 

STO9 ZDON'T BOTHER OTHER DRIVES 

RMAS (R4) ,R5 sREAD ATTENTION REG 

erage ah? ee ee FOR THIS DRIVE UP ? 
DPINT(R1) s TRYING TO INTIALIZE THE DRIVE ? 
ST06 BR IF YES - DRIVE NOT ONLINE 
DPRQS(R1) ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
STO7 “BR IF YES - NO RESPONSE TO REQUEST 
STO9 sOTHER WISE EXIT 

DPINT(R1) SINITIALIZING THE DRIVE ? 

1$ “BR IF INIT PENDING 

DPRQS(R1) =PORT REQUEST PENDING ? 

STo9 “BR IF NOT 

#-1,TIMER(R3) STOP THE TIMER 

STO9 sEXIT 

PC,C18 GO HANDLE THE PARITY ERROR 

STO9 

DPINT(R1) :CLEAR THE INITIALIZE INDICATOR 
DRVSTA(R1) :SET UNIT OFFLINE 


#-1, TIMER(R3) 


PC,GETREQ 
Re 


STO8 


#-1, TIMER(R3) 


STO9 R IF NO 
#BIT15.B1T14, 16ch3) 
FINISH 


STOP THE TIMER 
GET THE DPB ADDRESS 
REQUEST IN QUEUE ? 


T 
> INFORM THE USER DRIVE NOT AVAILABLE 


STOP THE TIMER 


SEQ O° 


“Z7RMVBO RM05/3/2 EXT*D DR FST 


Qe/RM ORIVER INITIALIZATION CODE 


1079 045236 
1680 045042 
1081 045246 

082 045250 
O83 045252 
084 045260 
085 045264 
086 045270 
087 045972 
OBB 045274 
089 045276 
090 045 
091 

052 

093 

094 

| 095 
096 
097 
098 
099 


na ak a a nna ak ed ar re ree mk tk ad ed et ns a = 
ee ee ee ee ee) 
SSPSScs 
MEWN—- 
& 


aA Vt 4 3 OOO 
DWNAMNEWR COON 

> 

& 

wr 

a 

Ww 

& 


A me ee ek a ed ed ed =) ss 
let et a ed et = ot I = = es 


LAL ALAR RA PORSPORORO PPO 
WAS =O OOO ~1IA HRWAN=OO 
(o>) 

& 


013737 


104003 


040562 
046510 


190004 
046414 
045654 


040646 


040650 
045326 


045330 
040650 
000010 
010000 


173266 
020000 


046600 
040634 
040000 


040000 


040650 
045444 
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00001€ 


045450 
045326 


000002 


045444 


“i 


STO9: 


:ROUTINE TO 
CALL 


IN 
RD.RM: 


RD.RM1: 
RD.ADR: 
RD.WRD: 


e$: BIS 


3$: .~ WORD 
PD.RM2: . 


DPRQS(R1; 
PC,GETREQ 
Re 


PC .EMPTYO 
PC, SVRH70 
(SP) ¢,R4 

(SP) +,R3 

(£7) +,R2 

(SP) +,R1 

PC 


RO,RD.RM 


MCPEMX .RD.RM2 
(SP) ,=(SP) 
RMADR ,RD.ADR 
(RO) +,RD.ADR 
a(PC)+, (PC)+ 
0 

0 
RD.WRD 2 (SP) 
RMADR , = (SP) 
ARMCS2, (SP) 
WBIT12,a(SP)+ 
RD.RM3 
@RMADR , ~ (SP) 
#81713, (SP) 


1$ 
(SP)+, (RO)+ 
RD.RM4 


aD ESSN 
DTUwW 

2$ 

#81714, (SP) 
2$ 

(SF) + 
RD.RM3 
#B1T14, (SP) 
(SP) 
RMADR , 3$ 
3$ 
oer 
(PC) + 


3 
RD.RM1 


SEQ 9183 


sCLEAR PORT REQUEST INDICATOR 
GET DPB ADDRESS 
SQUEUE ENTRY FOR DRIVE ? 


S109 “BR IF 
MBITIS‘BIT2, 16(R2) 
TCLEAR THE QUEUE FOR THE DRIVE 
“SAVE THE REGISTERS 

SRESTORE R4& 

“RESTORE R3 

SRESTORE R2 

SRESTORE R1 


NONE 
7 INFORM USER OF PORT REQUEST ERROR 


TRE TURN 


RFAD A RH/RM REGISTER 


:GO READ A REGISTER 

sREG. INDEX FROM BASE 

ERROR ADDRESS--PROCESS ERROR STARTING 
sAT THIS ADDRESS 
CONTENTS OF REG. IS ON THE STACK 


7MAX. RETRYS ALLOWED 

7 SAVE RO FOR RETURN 

3FORM THE DESIRED ADDRESS 
ZUSING THE BASE ANO THE INDEX 
READ THE DESIRED REGISTER OF ‘HE RM DRIVE 
ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 
RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RMCS2 
:CHECK THE ‘NED’ BIT 

7BR IF DRIVE NON-EXISTENT 
READ RMCS1 

:DID MCPE SET? 

sBR IF YES 

;ADJUST FOR RETURN 

sEXIT 


SAVE THE ADDRESS IN ‘SESCAPE* 
REPORT ‘MCPE'' ERROR 
DATA TRANSFER UNDERWAY? 


:NO 
: TRE" = ? 


2NO 

sYES--CLEAN OFF THE STACK AND 

TAKE THE FATAL ERROR EXIT os 
CLEAR ‘MCPE’' BY SENDING A ‘I’ TO “'TRE 
POSITION BEFORE WRITING 

FORM ADDRESS OF HIGH BYTE 


WRITE THE HIGH BYTE OF RMCS] 
ADDRESS STORAGE 
EXCEEDED MAX. RETRYS 


;BR IF NO 


CZRMVBO RMOQS/3/2 EXT'D DR TST 


RH/RM DRIVER INITIALIZATION CODE 


Ww 
WN O00 NOURWN O00 NA RW =O 00 TOUR 


OO Oe NN ES FEES Ee Ee EAA 
uv 


me ee tk ek ee ee me me a me mk mk mk ed ek a ns ts 8k ts ot ot os = ss 2 8s 
me ek ek ek et ad th at a ot a a ot a 2 So sa I oes 


— ate ot ot et oe ot 
COM~OCOGODOCDCOCO NN NNNNYNNNOAOAO 
NOM RR OOO YRARANASSSBGFR 


ed ed ed ed et =) 


@ 
oO 


045454 
045456 
045460 


045462 


011000 
012616 
000200 


013737 
016637 
072616 
012037 
001015 
122737 
002411 
004037 


040646 
000002 


045552 
000150 
045302 


177770 
045551 
040650 


040650 
090010 
610000 


045302 
000010 
177776 
045302 


046600 
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045640 
045550 


045550 


045552 


045622 


RD.RM3: MOV 
MOV 
RD.RM4: RTS 


(RO) ,RO 
(SP) +, <SF) 
RO 


ROUTINE TO WRITE A REGISTER 


CALL 


Ce ee ee ee 
— 
2 
=] 
mn 
P.4 


WRT RM: 


1$: 

WRT.RIT: 
WRT wD: 
WRT.AD: WORD 


1$: 


WRT .R2: 
WRT .R3: 


WRT.R4: TST 
WRT.R5: RTS 


DATA, ~(SP) 
RO,VRI.RM 


MCPEMX ,WRT Re 
2 (SP) ,WRT WD 
(SP) +, (SP) 

(RO) +, WRT .AD 


1$ 
#150,WRT.WD 
1$ 

RO,RD.RM 


(SP) 

w*C7, (SP) 
(SP) +, WRT .wD+1 
RMADR ,WRT AD 
Na 


0 

RMADR ,~ (SP) 
MRMACS2, (SP) 
WBITI2,a(SP)+ 
WRT .R3 
RO.RD.RM 


#B1T03,(SP)+ 
WRT 


«RS 
~2(RO),1% 
pornesth 


RO,ES.SAV 
Z 


(SP) + 
(PC) + 

3 

WRT .R1 
(RO) ,RO 
WRT .R5 
(RO) + 
RO 


SEQ 0184 
FATAL ERROR EXIT 


;DATA TO BE LOADED ON THE STACK 

CALL THE ROUTINE TC LOAD(WRITE) THE REG. 
INDEX OF THE REGISTER TO BE LOADED 
;ADDRESS TO RETURN TO ON AN ERROR 

sERROR FREE RETURN 


3MAX _RETRYS ALLOWED 

SAVE THE WORD TO WRITE 

sADJUST THE STACK 

7GET INDEX OF REGISTER [0 BE WRITTEN 

7BR IF NOT RMCS1 

31S THE COMMAND FOR DATA TRANSFERS? 
ZYES--DON'T GET THE OLD A16 & A17, & PSEL 
:NO--~COMBINE A168A17, & PSEL WITH 

7 THE COMMAND BEFORE SENDING JT TO 

THE RH/RM 


FORM THE ADDRESS OF THE DISK REG. 
LOAD THE DESIRED REG. 

sWORD TO WRITE GOES HERE 

ADDRESS IS FORMED HERE 

PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RMCS2 

: CHECK THE "NED’ BIT 

3;BR_IF DRIVE NON-EXISTENT 

sCHECK FOR PARITY ERROR ON WRITE 


:BR IF 'PAR=C'' 

sPICKUP THE INDEX 

sREAD THE REG. 

REG. INDEX 

RETURN TO THIS ADDRESS ON ERROR 
SAVE THE ADDRESS IN ‘SESCAPE* 
ZREPORT THE PARITY ON WRITE ERROR 
sCLEAR OFF THE STACK 

;DECREMENT THE ER?OR COUNT 

RETRY COUNTER 

TRY AGAIN IF NOT FINISHED 

TAKE THE "PARITY ON WRITE'' ERROR EXIT 


sEXIT 
ZADJUST FOR ERROR FREE EXIT 


;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 


CALL 


CZ7RMVBO RMO5S/3/2 EXT'D DR TST 


RH/RM DRIVER INITIALIZATION CODE 


ee cere nr er er gern eerie 


045770 


045772 
045774 


046050 


104412 


000207 


010446 
013704 
010164 
011446 
052716 


040650 
000010 
000014 


045734 
045734 


000200 


045302 


045734 
000002 
042756 


040650 
000010 


040000 


000100 
010000 


000001 
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000022 
000010 


000946 
045734 


000010 


: MOV 
; JSR 


SVRH70: Barnes 


1$: CMP 


es: JSR 
3$: . WORD 


4$: CMP 


5$: JSR 
6$: RESREG 
RTS 


sROUTINE TO SET 
S CALL 
z MOV 


JSR 
RETURN 


SET.1E: MOV 


1$: MOVB 
2s: MOV 
RTS 


QUEUE COUNT 


OCNT: «BYTE 
«BYTE 
BYTE 
-BYTE 
-BYTE 





SEQ 0185 

#DPBNUM , R2 :DPB POINTER TO R2 
PC, SVRH?70 “SAVE THE DRIVES REG'S 

ZSAVE RO - RS 
R2 “QUEUE ENTRY FOR THE DRIVE ? 
6$ ‘BR IF NONE 
RMADR RG 
(R2) ,RMCS2(R4) ;SELECT DRIVE 
14(R2),R3 ‘GET THE ERROR TABLE POINTER 
6$ TEXIT IF NO ADDRESS 


3$ :COUNTER & POINTER 
3$,4RMDB “REACHED THE BUFFER REGISTER ? 
2$ “BR IF NOT 
#B1T07,RMCS2(R4) 7'OR' SET ? 
2$ :BR IF SET 
(R3)+ :STORE RMDB AS ZEROES 
4$ > CONT INUE 
RO,RD.RM sREAD THE SELECTED REGIS7ER 
0 :REGISTER INDEX 
sERROR RETURN ADDRESS 
(SP) +, (R3)+ *STORE THE REGISTER CONTENTS 
3$,ARMEC2 :REACHED THE END ? 
6$ 7BR IF YES 
#2,3$ : INCREMENT THE REGISTER INDEX 
1$ :CONTINUE READING THE REGISTERS 
PC,CI7 =PROCESS THE UNCORRECTABLE PARITY ERROR 
:RESTORE RO - R5 
PC sRETURN 
THE INTERRUPT WITHOUT GETTING A ‘'TRE’’ 
#DRVNUM,R1 DRIVE NUMBER TO R1 
PC, SET.IE sSET ‘IE’ 
R4,-(SP) sSAVE R4 
RMADR , RG ZPICKUP ADDRESS OF RMCS1 
RT, RMCS2(R4) >SELECT DRIVE 
(R4) ,-(SP) sREAD RMCS1 
#BIT14, (SP) sSET THE "'TRE’' BIT OF THE WORD READ 
(SP) sADJUST FOR DATO 
#B1T06, (RS) SSET "IE 2 
MBIT12,RMCS2(R4) 21S ‘NED‘'=1? 
1$ ZYES=-CLEAR ‘‘TRE’' 
(SP)* *CLEAN OFF THE STACK 
(SP) +,1(R4) ZCLEAR ‘‘TRE'' 
(SP) +,R& sRESTORE RG 
PC “RETURN TO CALLER 
0 SDRIVE 0 
0 :DRIVE 1 
0 :DRIVE 2 
0 DRIVE 3 
0 :DRIVE 4 


€Z7RMVBO RMO5/3/2 EXT’D DR TST 


RH/RM DRIVER INITIALIZATION CODE 


046051 


046072 


7267 046074 


046110 
046112 


1272 046114 
1273 046116 
1274 046120 
1275 046122 
| 1276 046124 
1277 046126 
1278 040130 
1279 046132 
1280 046134 


1286 046136 
046156 
046176 
| 046216 
046236 
046256 
046276 
046316 


1296 046344 
1297 046346 


| a aes ee ee 


000 
000 
000 


046316 


046136 
046156 
046176 
046216 
046236 
046256 
046274 
046316 


046136 
046156 
046176 
046216 
046236 
046256 
046276 
046316 
046336 


04633€ 


104412 
012702 
005922 
005022 


046044 
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QINPT: 


SQUEUE OUTPUT 


QOUTPT: . 


QSTART: . 


QSTOP: 


epee: 
QDRVI: 
QDRV2: 
QDRV3: 
QDRVG: 
QDRVS: 
ODRV6: 


-BYTE OQ 
-BYTE OQ 
-BYTE O 
;QUEUE INPUT POINTERS 
«WORD QDRVO 
«WORD QDRVI 
«WORD QDRv2 
«WORD QD%V3 
«WORD QDRV4 
«WORD QDRV5 
«WORD QDRV6 
-WORD QDRV7 
POINTERS 
WORD QDRVO 
-WORD QDRV1 
«WORD QDRV2 
-WORD QDRV3 
«WORD QDRV4 
«40RD QDRV5S 
-WORD QDRV6 
-WORD QDRV7 
WORD QDRVO 
«WORD QDRV1 
-WORD QDRV2 
-WORD QDRV3 
-WORD QDRV4 
WORD QDRV5 
-WORD QDRV6 
-WORD QDRV7 
-WORD QTERM 
DRIVE REQUEST QUEUES 
-BLKw  =10 
-BLKw 10 
-BLKW 10 
-BLKW = =10 
-BLKw = 10 
-BLKW 10 
-BLKw =10 
-BLKw = =10 


QDRV?7: 


QTERM=. 


DRIVE 
sDRIVE 
sDRIVE 


NO 


sORIVE 
ZDRIVE 
ZDRIVE 
sDRIVE 
DRIVE 


NAW EAN =O 


DRIVE 


. 

Co 

P»] 

— 

< 

m 
NAME WN HO 


DRIVE O START ADDRESS 

sDRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
:STOP DRIVE 1--START DRIVE 
[STOP DRIVE 2--START DRIVE 
SSTOP DRIVE 3--START DRIVE 
STOP DRIVE 4--START DRIVE 
STOP DRIVE 5--START DRIVE 
sSTOP DRIVE 6-~START DRIVE 
STOP DRIVE 7 


NO UES AID 


sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


> CALL 


CLRQUE: 


JSR 


SAVREG 
MOV 


CLR 


CLR 


PC,CLRQUE 


#QCNT R2 


(Re) + 
(R2)+ 


:SAVE RO - RS 
ZERO THE QUEUE COUNTS 
“DRIVES 0 & 1 
“DRIVES 2&3 


SEQ 0184 
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RA/RM DRIVER INITIALIZATION CODE SEQ 018’ 
1298 046350 005022 CLR (R2)+¢ sDRIVES 4&5 ” 
1299 046352 005022 CLR (R2)¢ ZORIVES 6 & 7 
1300 046354 012703 000010 MOV #8. ,R3 :MOVE THE STARTING 
7301 046360 012701 046114 MOV MQSTART,R1 ZADDRESS OF THE QUEUE INTO 
1302 046364 012122 1$: MOV (R1)4,(R2)¢ 3 THE QUEUE INPUT POINTER 
1303 046366 005303 DEC R3 
1304 046370 001375 BNE 1$ 
1305 046372 012703 000010 MOV #8..R3 sMOVE iHE STARTING ADDRESS 
1306 046376 012701 046714 MOV MQSTART,R1 3OF THE QUEUE INTO THE 
1$07 046402 012122 es: MOV (Ri)*,(R2)¢ SQUEVE OUTPUT POINTER 
1308 046404 005303 DEC R3 ~ 
1309 046406 001375 BNE es 
1310 046410 104413 RESREG ZRESTORE RO - R5 
ee 046412 000207 RTS PC 
Aale sEMPTY THE QUEUE SPECIFIED BY R1 
1315 S CALL 
1316 s MOV DRVNUM ,R1 sDRIVE NUMBER TO R1 
aes JSR PC .EMPTYQ 
1319 046414 105061 046044 EMPTYQ: CLRAB QCNT(R1) sCLEAR NUMBER OF ITEMS IN QUEUE 
1320 046420 006301 ASL R1 
1321 046422 016161 046054 046074 MOV QINPT(R1) ,QOUTPT(R1) ZSET OUTPUT QUEUE POINTER-INPUT POINTER 
1322 046430 006201 ASR R1 
aor 046432 000207 PTS PC 
ee ZROUTINE TO PUT A REQUEST IN QUEUE 
1327 CALL 
1328 : MOV #DRVNUM,R1 :DRIVE NUMBER 
1329 : MOV #DPB,R2 ZADDRESS OF PARAMETER BLOCK 
1330 : JSR RO, DRVQUE 3GO PUT REQUEST IN QUEUE 
1331 i RETURN] ZRETURN HERE IF QUEUE IS FULL 
ioe RE TURN2 ZRETURN HORE IF REQUEST IS IN QUEUE 
1334 046434 122761 000010 046044 DRVQUE: CMPB #10, QCNT(R1) z1S QUEUE FULL? 

1335 046442 001421 BEQ e$ :BR IF YES-TAKE RETURNI 
1336 046444 105261 046044 INCB QCNT(R1) SINCREMENT QUEUE COUNT 
337 046450 006301 ASL R} 
338 046452 010271 046054 MOV R2,aQINPT(R1) sPUT THIS REQUEST IN QUEUE 
339 046456 062761 000002 046054 ADD #2, QINPT(R1) SUPDATE THE QUEUE POINTER 
0 046464 026161 046054 046116 CMP QINPT(R1) ,QSTOP(R1) TIME TO RESET THE POINTER 
1 046472 001003 BNE 1$ :BR IF NO 
2 046474 016161 046114 046054 MOV QSTART(R1) ,QINPT(R1) ZYES--RESET POINTER 
3 046502 006201 1$: ASR R1 
4 046504 005720 TST (RO) + : TAKE RETURN 2 
5 046506 000200 2$: RTS RO sRETURN TO USER 
ZROUTINE TO GE’ THE 'DPB’’ ADDRESS OF NEXT REQUEST IN QUEUE 
SCALL 
; MOV ADRVNUM,R1 :DRIVE NUMBER TO R1 
: JSR PC ,GETREQ :GO GET THE REQUEST 
- RETURN :R2=' DPB'' ADDRESS OF THE REQUEST 


3R2=0 IF NO REQUEST IN QUEUE 


“Z7RMVBO RMO5/3/2 Ex''D OR TST 
RH/RM DRIVER INITIALIZATION CODE 


7355 046510 005002 
“356 046512 105761 046044 
1359 946522 017102 046074 
1361 046530 000207 


1370 046532 105361 046054 


1372 046540 017102 046074 
1373 046544 005071 046074 
1374 046550 062761 000002 
1375 046556 026161 046074 


1377 046566 016161 046114 


1390 046600 012037 046614 

1391 046604 013746 001222 

1392 046610 005037 001222 
000000 


1394 046616 012637 001222 
7395 046622 000200 
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046074 
046116 


046074 


SEQ 0186 
GETREQ: CLR R2 
TSTA QCNT (RI) z1S THERE ANY REQUEST IN QUEUE? 
BEQ 2$ 3NO 
1§: ASL R1 
ae SGOU TE TR iene sPICKUP ‘DPs'' POINTER FOR THIS DRIVE 
2$: RTS PC ;RETURN TO USER 
sROUTINE TO 'POP’’ THE REQUEST FROM QUEUE 
= CALL 
, MOV ADRVNUM,R1 :DRIVE NUMBER TO R1 
3 JSR PC ,POPQUE ZCALL TO REMOVE REQUEST 
‘ RETURN sR2=ADDRESS OF DPR REMOVED 
POPQUE : Bene i al ZDECREMENT QUEUE COUNT 
L 
MOV @QOUTPT(R1),R2 :GET THE 'DPRB’’ POINTER 
CLR @QOUTPT(R1) sREMOVE DPB ADDRESS FROM THE QUEUE 
ADD #2, QOUTPT(RI) UPDATE THE QUEUE POINTER 
CMP QOUTPT(R1) ,QSTOP(R1) zTIME TO RESET THE POINTER? 
BNE 1$ sNO--BR TO EXIT 
MOV QSTART(R1) ,QOUTPT (RID 2 YES--RESET THE POINTEP 
1$: ASR R1 
RTS PC :RETURN 'O USER 


ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE*® WHEN THE DRIVER 
ZREPORTS AN ERROR DIRECTLY. 


2 CALL 
: JSR RO.ES. SAV 
: ERROR N 7a THE ERROR CALL 
7 RE TURN 7 THE RETURN IS PAST THE ERROR CALL 
ES.SAV: MOV (RO) +,1% :GET THE ERROR CALL 
MOV SESCAPE ,-(SP, SAVE THE ADDRESS IN *SESCAPE’ 
CLR SESCAPE ZCLEAR THE ESCAPE RETURN 
1§: «WORD 0 THE ERROR CALL JS MOVED HERE 
MOV (SP)¢,SESCAPE  ;RESTORE THE ESCAPE ADDRESS 
RTS RO RETURN 


ZRMVBO RMOS/3/2 EXT'D DR TST 
Gf TADR - GET BUS ADDRESS AND VECTOR ADDRESS 


a2 — 
DWNAMEWNI-ODODNAWMa Wr 4 


046624 
046630 


046722 
046726 
046732 
046736 
046742 
046744 
046746 
046750 
C46754 
046756 
046760 
046764 
046766 
046772 


046776 
047006 


005737 
001427 
005037 
012700 
012703 
011004 
004037 
000402 
000767 
000412 
010420 
012703 
011004 
004037 
000402 
000756 
000401 
010420 
010410 
613703 
072737 
005777 


001324 
001324 


035542 


047006 
035542 


000004 
046750 
132554 
000004 
001502 
040650 


000004 


000042 


061330 
021334 


122 
122 


H 
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000004 


ew 9 
—— 
Rw 


~SBITL 


SREQUIR 
“NOTE: 
s CALL 


GETADR: 


1$: 


es: 


38: 
5$: 


58: 


MRMCS1: 
MRMVEC: 


SEC 018% 


GETADR = GET BUS ADDRESS AND VECTOR ADDRESS 


:THIS ROUTINE IS USED TO ENSURE THE BUS ADDRESS 
‘OF THE RH/RM IS SETUP TO READ THE PROPER VALUE. 
‘TT WILL ALSO READ THE ADDRESS FROM THE TTY IF 


JSR 
RETURN 


TST 
BEQ 
CLR 


eASCIZ = <CRLF>/RMCS1=/ 
<CRLF >/RMVEC-/ 


-ASCIZ 


PC,GETADR 
BUSADR 

5$ 

BUSADR 
#RH.ADR,RO 
AMRMCS1,R3 


(RO) ,R4 
Be. , GE TNUM 


ERRVEC,R1 
a6$, ERRVEC 
@RH.ADR 
R17, ERRVEC 
#RH,.ADR,RO 
R.R1 


#RMADR, 
(ROD +, (RI) + 
(RO) +, (RID + 


PC 

R1 ,ERRVEC 
sora eens 
a42 

1$ 


DRVSEL 
SEOP 


ED. 
THIS ROUTINE DESTROYS RO=R4 


INPUT FROM TTY REQUESTED? 
3NO--BRANCH 


7 YES~-CLEAR THE REQUEST FLAG 
iFIRSI ADDRESS 

"RMCS1="' 

SPRESENT RMCS1 ADDRESS 


2GET NEW RMCS1 


> COMMA 

PERIOD 

sDOUBLE PERIOD 
7 SAVE NEW RMCS1 
:" RMVEC="' 


PRESENT RH/RM VECTOR ADDRESS 
“GET NEW RMVEC 
: COMMA 


PERIOD 

sDOUBLE PERIOD 

2SAVE NEW RMVEC 

2SAVE JNPUT 

SAVE THE ERROR VECTOR 

7SETUP FOR TRAP 

CHECK FOR RH/RM 

RESTORE ERROR VECTOR 

FIRST ADDRESS OF NEW PARAMETERS 
FIRST ADDRESS OF WHERE TO PUT THEM 


;BUS ADDRESS 
ee ton ADDRESS 


— TURN 
ZRESTORE ERROR VECTOR 
SCLEAN OFF THE STACK 


71S THERE A MONITOR? 
3NO--GO ASK FOR ADDRESS 
FUDGE NO DRIVES SELECTED 
RETURN TO SEOP 
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DPB (DAA PARAMETER BLOCKS) SEQ 0190 
: .SBITL DPB (DATA PARAMETER BLOCKS) 
3 047016 000 DPB.A: .BYTE 0 7(0) DRIVE NUMBER 
4 047017 000 BYTE 0 2(1) OFFSET VALUE OR FMT16, ECI, AND HCI 
5S 047020 000 BYTE 0 :(2) COMMAND 
6 047021 000 BYTE 0 7(3) PSEL AND A17 AND A16 
7? 047022 000000 .wORD 0 7(4) WORD COUNT (MUST BE NEG.) 
8 047026 054522 «WORD BUFFER :(6) BUFFER ADDRESS OR 
9 sREGISTER TABLE POINTER 
10 047026 000 BYTE 0 (10) SECTOR ADDRESS OR 
1 sFIRST REG. INDEX 
12 047027 000 BYTE 0 3(11) TRACK ADDRESS OR 
13 sLAST REG. INDEX 
14 047030 000000 «WORD 0 (12) CYLINDER ADDRESS 
15 047032 047140 «WORD RM.REG 3(14) ERROR TABLE POINTER 
16 :POINTS TO THE FIRST OF TWENTY 
17 LOCATIONS OF WHERE THE DRIVER 
18 :1S TO STORE THE RH/RM 
19 “REGISTERS ON AN ERROR. IF LEFT 
20 ZERO REGISTERS ARE NOT SAVED. 
21 0647034 000005 «WORD 0 :(16) STATUS/ERROR INDICATOR 
22 :BIT15=1=>ERROR OCCURRED 
23 3B11T07=1=>DONE 
24 :B1T14-BIT09 AND B1IT06-81 103 
3 INDICATE TYPE OF ERROR 
27 047036 060 DPB.B: .RBYTE 0 (0) DRIVE NUMBER 
28 047037 000 BYTE 0 3(1) OFFSET VALUE OR FMT16, ECI. AND HCI 
29 047040 000 BYTE O (2) COMMAND 
30 047041 000 -BYTE 0 3(3) PSEL AND Ai7 AND A16 
31 047042 177776 WORD -2 54) WORD COUNT (MUST BE NEG.) 
32 547064 054522 -WORD BUFFER :(6) BUFFER ADDRESS OR 
35 ;REGISTER TABLE POINTER 
34 047046 000 -BYTE 0O (10) SECTOR ADDRESS OR 
35 SFIRST REG. INDEX 
36 047047 000 BYTE O 2(11) TRACK ADDRESS OR . 
37 ZLAST REG. INDEX 
38 047050 000000 -wORD 0 (12) CYLINDER ADDRESS 
39 047052 047140 .WORD RM. REG 3(14) ERROR TABLE POINTER 
40 POINTS TO THE FIRST OF TWENTY 
4] SLOCATIONS OF WHERE THE DRIVER 
42 31S TO STORE THE RH/RM 
43 REGISTERS ON AN ERROR. IF LEFT 
44 ZERO REGISTERS ARE NOT SAVED. 
45 047054 000000 -WORD 0 (16) STATUS/ERROR INDICATOR 
46 :BIT15=1=>ERROR OCCURRED 
47 7BIT07=1=>DONE 
48 :B1T14-BIT09 AND BITO6-BIT03 
= INDICATE TYPE OF ERROR 
51 047056 000 DPB.C: .BYTE 0 :(0) ORIVE NUMBER 
52 047057 000 «BYTE 0 :(1) OFFSET VALUE OR FMT16, ECI, AND HCI 
53 047060 000 BYTE 0 (2) COMMAND 
54 047061 000 BYTE 0 *(3) PSEL AND A17 AND A16 
55 047062 177776 WORD =-2 *(4) WORD COUNT (MUST BE NEG.) 
56 047064 054522 .wWORD BUFFER :(6) BUFFER ADDRESS OR 
57 sREGISTER TABLE POINTER 


“ZRMVBO RMOS/3/2 EXT’D DR TST 
DPB (DATA PARAMETER BLOCKS) 


58 047066 000 
60 047067 000 
° 
62 047070 000000 
63 047072 047140 
64 
65 
66 
67 
68 
99 047076 000000 
71 
72 
73 
74 
75 047076 000 
76 047077 000 
77 667100 000 
78 047101 000 
79 047102 000000 
80 047104 054522 
- 047106 0GO 
84 047107 000 
86 047710 000000 
87 047112 047140 
88 
gy 
90 
91 
92 
93 047114 000000 
9% 
95 
% 
97 
98 
99 047116 000 
100 047117 000 
101 047120 107 
i02 047121 000 
103 047122 000000 
| 104 047124 O>4522 
! 106 047126 000 
107 
| 108 047127 000 
| 109 
110 047130 000000 
| 111 047132 047140 
112 
113 
11% 


a pe psalms. edi at oesalsashesihgs 
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BYTE 0 
-BYTE O 
.WORD O 
.wORD RM.REG 
WORD 0 
DTADPB: .BYTE 0 
BYTE 0 
-BYTE QO 
-BYTE O 
-WORD 0 
. WORD BUFFER 
-BYTE O 
BYTE 0 
. WORD 0 
-WORD RM.REG 
-WORD 0 
DPB.R -BYTE O 
-BYTE O 
-BYTE RECAL 
«BYTE O 
«WORD 0 
-WORD BUFFER 
-BYTE O 
-BYTE O 
~ WORD 0 
wORD RM.REG 


SEQ 0191 


) 

S ] x 

) TRACK ADDRESS OR 

T REG. INDEX 

) CYLINDER ADDRESS 
) ERROR TABLE POINTER 

NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE THE DRIVER 
TO STORE THE RH/RM 

ISTERS ON AN ERROR. IF LEFT 
O REGISTERS ARE NOT SAVED. 
) STATUS/ERROR INDICATOR 
15=1=>ERROR OCCURRED 
07=1=>DONE 

14-BIT09 AND 81T06-BIT03 
ICATE TYPE OF ERROR 


DRIVE NUMBER 
OFFSET VALUE OR FMT16, ECT, 


0 

1 AND HCi 
2 (2) COMMAND 

(3) PSEL AND A1l7 AND A16 

4) WORD COUNT (MUST BE NEG.) 

6) BUFFER ADDRESS OR 

:REGISTER TABLE POINTER 

10) SECTOR ADDRESS OR 

a - INDEX 

A 


- INDEX 

;(12) CYLINDER ADDRESS 

(14) ERROR TABLE POINTER 
ZPOINTS TO THE FIRST OF {WENTY 
sLOCATIONS OF WHERE THE DRIVER 
31S TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
iZERO REGISTERS ARE NOT SAVED. 
3 (16) STATUS/ERROR INDICATOR 
3B81T15=1=>ERROR OCCURRED 
;BIT07=1=>DONE 

3B1T14-B1T09 AND B1IT06-B1T03 

Z INDICATE TYPE OF ERROR 


DRIVE NUMBER 
OFFSET VALUE OR FMT16, ECI, 


COMMAND 

PSEL AND Al7 AND Al6 

WORD COUNT (MUST BE NEG.) 
BUFFER ADDRESS OR 

ISTER TABLE POINTER 

) SECTOR ADDRESS OR 
ST_REG. INDEX 

) TRACK ADDRESS OR 

T REG. INDEX 

) CYLINDER ADDRESS 

) ERROR TABLE POINTER 
NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE THE DRIVER 
TO STORE THE RH/RM 


AND HCI 


Mme BAN S| DOOA~ww 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
DPB (DATA PARAMETER BLOCKS) 


047134 000000 


047136 000000 


aI SS a to ss as 


NMMNIN NNN 2 Ba ao 
NOUS WN O00 NAN 


047140 000000 
047142 000000 
128 047144 000000 
129 047146 000000 
130 047150 000000 
131 047152 000600 


745 047206 000000 


MACRO V04.00 


WORD 


» WORD 
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0 


0 


SEQ 019¢ 


ISTERS ON AN ERROR. IF LEFT 
O REGISTERS ARE NOT SAVED. 
) ell Tati es INDICATOR 
15=1=>ERROR OCCURRED 
07=1=>DONE 
:BIT14-BIT09 AND BIT06-B817T03 
ZINDICATE TYPE OF ERROR 
“SKIP SECTOR ENABLE INDICATOR (ENASLED =1) 


SRE 
;ZE 
7:4 
;B1 
;Bl 


G 
R 
6 
T 
T 


SAVE RH/RM REGISTERS HERE ON ERROR 


RM.REG: 


EVEN 


- WORD 
«WORD 
WORD 
. WORD 
. WORD 
«WORD 
. WORD 
. WORD 
. WORD 
. WORD 
.WORD 
WORD 
. WORD 


~WORD 


“WORD 
. WORD 
= WORD 
.WORD 


DOD DDDODODDOOVWVODOOO909090O 


ZRMCS1 (776700) CONTROL : STATUS #1 
sRMWC (776702) WORD COUN 

[RMBA (776704) BUS ADDRESS 
:RMDA_(775706) DESIRED SECTOR/TRACK 
SRMCS2 (776710) CONTROL & STATUS #2 
sRMDS (776712) DISK STATUS 

ZRMER1 (776714) ERROR REG. #1 

ZRMAS (776716) ATTENTION SUMMARY 
ZRMLA (776720) LOOK AHEAD 

ZRMDB (776722) DATA BUFFER 

[RMMR1 (776724) MAINTAINABILITY 
ZRMDT (776726) DRIVE TYPE 

ZRMSN (776730) SERIAL NUMBER 

zRMOF (776732) OFFSET 

ZRMDC (776734) DESIRED CYLINDER 
7RMHR (776736) CURRENT CYLINDER 
SRMMR2 (776740) ERROR REG #2 
ZRMER2 (776742) ERROR REG #3 

TRMECT (776744) ECC POSITION 
ZRMEC2 (776746) ECC PATTERN 
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ASCIZ MESSAGES SEQ 019% 


; ~SBTTc ASCIZ MESSAGES 

3 047210 122 000 MSG.R: .ASCIZ /R/ 

4 047212 106 103 000 MSG.FC: .ASCIZ /FC/ 

5 947215 114 103 000 MSG.LC: .ASCIZ /LC/ 

6 047220 111 103 000 MSG.IC: .ASCIZ /IC/ 

7? 047223 106 124 000 MSG.FT: .ASCIZ /FT/ 

B 047226 114 124 000 MSG.LT: .ASCIZ /LT/ 

9 047231 111 124 000 MSG.IT: .ASCIZ /IT/ 

0 047234 106 124 047 MES.FT: ,ASCIZ /Fo'/ 

11 047240 114 124 Q47 MES.LT: .ASCIZ /LT*/ 

12 047244 111 124 047 MES.IT: .ASCIZ /IT'/ 

13 047250 106 123 000 MSG.FS: .ASCIZ /FS/ 
14 047253 114 123 000 MSG.LS: .ASCIZ /LS/ 
15 047256 120 101 124 MSG.PAT:.ASCIZ /PAT/ 
16 047262 075 000 MSG.EQ: .ASCIZ /=/ 
es 047264 200 103 117, MSG.CS: .ASCIZ <CRLF>/CONTROL SWITCHES=/ 
19 047307 040 057 040 SLASH: .ASCIZ @/a 
20 047313 200 125 116 UNSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
21 047331 040 112 106 UNTOFF: .ASCIZ / OFFLINE/ 
22 047342 040 117 116 UNTON: .ASCIZ / ONLINE/ 
23 047352 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
24 047367 040 125 116 NOTSAF: .ASCIZ / UNSAFE/ 
25 047377 040 116 117 NOTRM: .ASCIZ @ NOT AN RM05/3/20 
26 047420 040 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 
27 047440 122 115 060 $RMO2: .ASCIZ /RMO2/ 
28 047445 122 115 060 S$RMO3: .ASCIZ /RMO3/ 
29 047452 122 115 060 $RMO05 ASCIZ /RMO5S/ 
30 047457 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED, / 
31 047510 116 1i7 116 NONE: ASCIZ /NONE/ 
32 047515 054 040 000 COMMA: .ASCIZ /, / 
33 047520 200 116 117 NOCLOK: .ASCIZ <CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 

047605 115 102 101 SERIAL: .ASCIZ @MBA S/N: @ 
35 047617 200 124 105 MSGTST: .ASCIZ <CRLF>/TEST/ 
047625 200 104 122 MSDRIV: .ASCIZ <CRLF>/DRIVE/ 

37 047634 040 104 122 DROP: ASCIZ / DROPPED/ 
38 047645 105 130 103 EXCEED: .ASCIZ /EXCEEDED MAXIMUM ERROR LIMIT/<CRLF> 
39 047703 200 116 117 NODRVS: .ASCIZ <CRLF>/NO DRIVES TO TEST/<CRLF> 
oh 047727 200 116 117 NOTEST: .ASCIZ <CRLF>/NO TESTS SPECIF IED/<CRLF> 
42 047754 200 012 122 ROTATE: .ASCIZ <CRLF><LF>/ROTATIONAL SPEED TIMES/ 
43 050005 200 O12 117, ONECYL: .ASCIZ <CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/ 
44 050052 200 O12 101 AVERGE: .ASCIZ <CRLF><LF>/AVERAGE SEEK TIMES/<CRLF>/ * FORWARD/ 
45 050112 200 O12 115 MXSEEK: .ASCII  <CRLF><LF>/MAXIMUM SEEK TIMES/ 
46 050136 200 040 052 Fwd: eASCIZ <CRLF>/ * FORWARD/ 
ie 050152 200 040 052 REV: eASCIZ <CRLF>/ * REVERSE/ 
49 050166 200 118 111) MSGMIN: .ASCIZ <CRLF>/MIN=/ 
50 050174 200 115 101 MSGMAX: .ASCIZ <CRLF>/MAX=/ 
51 050202 200 101 126 MSGAVG: .ASCIZ <CRLF>/AVG=/ 
52 050210 060 040 125 MSGOUS: .ASCIZ /0 US/ 
53 050215 040 102 105 MBELOW: .ASCIZ / BELOW THE MINIMUM OF / 
54 056244 040 101 102 MABOVE: .ASCIZ / ABOVE THE MAXIMUM OF / 
55 050273 040 123 105 MSGSEA: .ASCIZ / SEARCHES TIMED/ 
56 050313 040 123 105  MSGNUM: .ASCIZ / SEEKS TIMED/ 
57 050330 040 116 117 MSGNON: .ASCIZ / NOT TIMED/ 
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ASC IZ MESSAGES SEQ 0194 
58 050343 Q40 BLNKS4: .ASCI] 7 / 
59 050344 040 BLNKS3: .ASCII 7 / 
60 050345 040 BLNKS2: .ASCII] / / 
61 050346 040 000 BLNKS1: .ASCIZ / / 
62 950350 101 114 114 MSG7XA: .ASCIZ @ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMOS/3a 
63 050425 101 114 114 MSG7XB: .ASCIZ /ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMO2/ 
64 959500 101 114 114 MSG1OX: .ASCIZ /ALLOWABLE UNE CYLINDER SEEK LIMIT/ 
45 050542 101 114 114 MSG11X: .ASCIZ /ALLOWABLE AVERAGE SEEK TIME LIMIT/ 
66 050604 101 114 116 MSG12X: .ASCIZ /ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT/ 
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; .SBITL ERROR HEADER (EM) MESSAGES 

3 05066 122 110 040 EMI: wASCIZ /RH_ CONTROLLER INTERRUPT OCCURRED (RMAS 0)/ 
% 050732 125 116 105 EM: wASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

5 050770 115 101 123 EMS: ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 

6 051025 115 101 123 EM4: ASCIZ /MASSBUS PARITY ERROR(PAR=1)/ 

7 051061 101 104 104 EMS: ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

8 051115 122 110 040 EMI0 -ASCIZ /RH CONTROLLER FAILED TO RESPOND TO ADDRESSING/ 
9 051173 104 122 117 EM11 -ASCIZ /DRIVE SELECTED IS NOT ONLINE/ 

10 051230 117 115 120 EMI2 »ASCIZ = / IMPROPER HEADER DATA/ 

11 051255 104 101 124 —M13: eASCIZ /DATA COMPARE FAILURE/ 

12 051302 104 171 123° EM1?: eASCIZ = /DISK ERROR IN TIMING TEST/ 

13 051334 103 114 117 ~EM20: eASCIZ = /CLOCK (KW11-P) Deeeccey IN TIMING TEST/ 

14 051403 104 111 123 EM23: -ASC1Z /DISK ERROR DURING SEEK/ 
15 051432 123 105 105 EM24: wASCIZ /SEEK NOT COMPLETE WITHIN 120 MS/ 

16 051472 122 110 OS7 EM41: -ASCIZ @RH/RM ERROR 
17 051506 106 101 124 EM46: eASCIZ = /FATAL WRITE CHECK ERROR/ 


6 '0 
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TAT _S/ERROR INDICATOR MESSAGES 


5 ~SBYTL STATUS/ERROR INDICATOR MESSAGES 

3 051536 117 106 706 MSGB14: .ASCIZ /OFFLINE OR UNSAFE DRIVE REQUESTED/ 

4 051600 125 116 114 MSGB13: .ASCIZ /UNLOADED DRIVE REQUESTED/ 

5 95163) *20 105 122 MSGB12: .ASCIZ /PERSISTENT UNSAFE/ 

6 051653 120 101 122 MSGB11: .ASCJZ /PARITY ERROR OCCURRED/ 

7 057701 106 101 124 MSGB10: .ASCIZ /FATAL PARITY ERROR/ 

& 051726 123 117 106 ™SGBO09: .ASCIZ /SOFTWARE T'MCQUT ON THIS DRIVE’ 

9 051763 125 117 106 MSGBO8: .ASCIZ /SOFTWARE TIMEOUT ON ANOTHFR DRIVE/ 

10 952025 105 T2e 12c ™MSGB06: .ASLIZ “ERROR OCCURRED DURING !/0 OPERATION'’ 

11 052071 105 122 122 MSGBOS: .ASCIZ ‘ERROR OCCURRED DURING NON-1/0 OPERATION’’ 
12 052141 125 116 123 MSGB04: .ASCIZ /UNSAFE OCCURRED/ 
13 052161 01 *25 124 “SGBU3: .ASCIZ /AUTOMATIC RECALIBRATE SEQUENCE OCC'IRRED/ 
14 05223) 104 122 171 MSGBO2: .ASCI]Z /DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 
15 052301 104 122 111 MSGBO1: .ASCIZ /DRIVE HAS BECOME NON@FXISTENT/ 
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TATA HEADER (D1) MESSAGES SEQ 0197 
1 .SBTTL DATA HEADER (DT) MESSAGES 
¢ 
3 052337 105 122 122 DH1: -ASCIZ /ERR PC RMAS/ 
4 052354 105 122 122 DH2: -ASCIZ /ERR PC DRIVE  RMAS RMDS RMERT RMMR2 RMER2/ 
5 052441 124 105 123 DH3: -ASCIZ /TEST ERR PC ADDRESS DATA/ 
6 052476 124 105 123 DH4: -ASCIZ = /TEST ERR PC ADDRESS GDDATA BDDATA/ 
7 052545 122 115 103 DH10:  .ASCIZ /RMCS1 = ERR PC/ 
8 052564 104 122 111. DH17:  .ASCIZ /DRIVE ERR PC/ 
9 052603 124 105 123 DH12: .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK  SECTOR/ 
10 052672 107 104 103 DH12A: .ASCIZ /GDCYL GDTRK GDSCTR ®DCYL 8DTRK BDSCTR/ 
11 052751 107 104 104 DH13A: .ASCIZ /GDDAT BDDAT WRDCNT GDADR  BDADR/ 
12 053017 124 105 123 OH17: .ASCIZ /TEST ERR PC DRIVE RMCS1 RMDS RMERT RMMR2 RMERZ/ 
13 053114 124 10 123 DH21: .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK/ 
14 053172 107 104 104 DH21A: .ASCIZ /GDDAT BDDAT WRDCNT SECTOR/ 
1§ 053231 124 105 123 DH23: .ASCIZ /TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 = RMDS/ 
16 053316 122 115 105 DH23A: .ASCIZ /RMER1 RMMR2 RMER2  RMDC RMHR/ 
17 053363 124 105 123 DH41: .ASCIZ /TEST ERR PC TST PC DRIVE/ 
18 053421 124 105 123 DH42: .ASCIZ /TEST ERR PC TST PC DRIVE RMCS1 RMCS2 ~~ RMDS/ 
19 053506 122 115 105 DH43A: .ASCIZ /RMER? RMMR2~ RMER2/ 
20 053534 122 115 103 DH44A: .ASCIZ /RMCS1 RMCS2 RMDS  RMHR RMDC RMDA/ 
21 053616 122 115 105 DH44B: .ASCIZ /RMER1 RMMR2  RMER2/ 
23 053636 122 115 105 Os: -ASCIZ /RMER? RMMR2 RMERC RMWC RMBA RMDA/ 
-EV 
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001204 


001200 


001176 
001370 
001176 
001206 
001352 


047202 


.SBITL 


DT45A: 
D1458: 


. WORD 


. WORD 
» WORD 


«WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
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E 41 
SEQ 0198 


DATA TABLE (DT) 


. WORD 
. WORD 


SERRPC ,$REG3 

SERRPC ,$REG1,$REG3, AER RMERRS+2,RMERRS*6,RMERRS +4 
$TMPO, SERRPC.RD.ADR,RD.WRD 

$TMPO,SERRPC .WRT.ADR, wat WD,RD.WRD 

$TMPO, SERRPC , SREG1, $REGS .RMERRS ,RMERRS*+2, RMERRS +6 ,RMERRS +4 
RH. ADR, SERRPC 

$REG2, SERRPC 

$TMPO, SERRPC , SREGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 
CYL.DS,TRK.DS,SEC.DS,CY!_.RD,TRK.RD,SEC.RD 
$TMPO,,SERRPC,$REGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 

S$GDDAT , SBDDAT , SREG4 , SGDADR, SBDADR 

$TMPO , SERRPC , CHKDRV. RM. REG,RM.REG*+12,RM. REG+14,RF .REG*40,RM.REG*42 
$TMPO, SERRPC , $REGO, CHKDRV, CYi .DS, TRK.DS 

$REG1,$BDDAT ,$REG4 , $REGI 

$TMPO, SERRPC .CHKDRV, CYL .DS /RM.REG,RM.REG+10,RM.REG*12 

RM. REG+14,RM.REG+40,RM.REG*42 ,RM. REG+ 34 ,RM.REG* 36 

$TMPO, SERRPC , SREGO, CHKDRV 

STMPO, SERRPC, S$REGO, CHKDRV RM. REG, RM. REG*+10,RM.REG*12 
STMPO,,SERRPC,$REGO, CHKDRV,RM.REG,RM.REG+10,RM.REG*+12 

RM. REG+14 RM. REG+40,RM.REG*42 

STMPO, SERRPC, $REGO, CHKDRV, CYL.DS,TRK.DS,SEC.DS 5 
RM.REG,RM.REG*+10,RM.REG+1¢,.RM.REG+36,RM.REG+34 ,RM.REG*C6 
RM.REG+14 RM. REG+460,RM.REG+42 

STMPO , SERRPC ,SREGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 
RM.REG,RM.REG*+10,RM.REG+12,RM.REG+36,RM.REG+34 RM. REG*06 
RM.REG*+14,RM.REG+40,RM.REG+42,RM.REG+2 RM. REG*4 ,RM.REG*C0 
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34 054406 
35 054410 
36 054411 
37 054412 
38 054414 
39 054415 


41 054416 
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43 054421 


45 054422 
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-SBTTL DATA FORMAT (DF) TABLE 


DF 1: . WORD 
-BYTE 
-BYTE 


DFe: » WORD 
-BYTE 
«BYTE 


DF3: . WORD 
-BYTE 
BYTE 


DF4: . WORD 
DFI0: . WORD 
DFI1: eure 


DFle: WORD 


DF13: WORD 


DF14:  . WORD 
DF17: . WORD 


DF21: . WORD 


DF 22: . WORD 
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160 
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NUMBER OF DATA HEADERS 
NUMBER OF WORDS IN DATA TABLE 
ZALL 3 NUMBERS ARE OCTAL 


:2 DH'S TO BE TYPED 

7? DATA WORDS FOLLOW THE 1ST DH 
[WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
SADDRESS OF 2ND DH 

36 DATA WORDS FOLLOW THE 2ND DH 

sALL WORDS ARE OCTAL 


sWORD 3 IS DECIMAL 


sWORD 3 IS DECIMAL 
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CATA FORMAT (DF) TABLE 


58 054441 
59 


60 054442 
61 054444 
62 954445 
63 054446 
64 054450 
65 054451 


68 054452 
09 054454 
70 054455 


72 054456 
73 054460 
74 054461 


76 054462 
77 054464 
78 054465 
79 054466 
80 054470 
81 054471 


83 054472 
84 054474 
85 054475 
86 054476 
87 054500 
88 054501 
89 054502 
90 054504 
91 054505 


93 054506 
94 054510 
95 054511 
96 054512 
97 054514 


101 054521 


104 054522 
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000008 
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000002 
007 


000200 


DF23: 


DFG1: 
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«END 
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BYTE 
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SEQ 0200 
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SYMBOL TABLE SEQ 0201 
ABASE = 000000 ATG - 000020 C14 042342 y DH11 052564 DtO7? = 000200 
ACDW1 = 000000 ATS - 000040 C15 042720 DH12 052603 D108 = 000400 
ACDw2 = 000000 AT6 = 000100 C16 042742 DH12A = 052672 DT1 053714 
ACPUOP= 000000 AT? == 000200 C17 042756 DH13A = 052751 D110 054000 
ACTDRV 040576 AUNIT = 000000 _17B 043000 DH17 053017 DT11 054004 
ACTSTR 040577 AUSWR = 000000 C18 043056 DH2 052354 DT12 054010 
ADDwWO = 000000 AVECT1= 000000 CKSCTR 034034 DH21 053114 DI12A 054026 
ADDW1 = 000000 AVECT2= 000000 CKSWR = 104407 DH21A = 053172 0713 054042 
ADDW10= 000090 AVERGE 050052 CK.CHR 040132 DH23 053231 DT13A 054040 
ADDW11= OGO000 Al6 = 000400 CK.DEC 049104 DH23A) =: 053.316 D117 054072 
ADDwW1 2= 000 Al? == 001000 CK.DIG 040206 DH3 052441 DT2 053720 
ADDW1 3= 000000 BADTMO 004576 CK.NUM 040372 DH4 052476 DT21 054112 
ADDW14= 000000 BAI - 000010 CK.OCT 040056 DH41 053363 NT2IA 054126 
ADDW15= 000000 BASFLG 001466 CLKSTA 001342 DH42 053421 DT23 054136 
ADDW2 = 000000 BITS 001540 CLOSE 037776 DH43A 05350 DT23A 054154 
ADDwW3 000C00 BITO = 000001 CLR = 000040 DH44A 053534 0T3 053736 
ADDW4 = 000000 BITOO = 000001 CLRBUF 033766 DH448 38605361 DT4 053746 
ADDWS ~ 000000 BiT01 = 000002 CLRQUE 046336 DH45A 536 DT41 054166 
ADDW6 000000 BIT02 - 000004 CLSWDS 037676 DISPLA 001156 DT42 054176 
ADDW7 = CO0000 BITO3 = 000010 CNTCLR 027334 DISPRE 000174 D143 054214 
ADDWS -— 000000 BITO4 - 0000-20 CNTRLC 001322 DLT = 100000 DT43A 054232 
ADDW9 000000 BITO5 - 000040 C 047515 DMD == 000001 D144 054240 
ADEVCT= 000000 BITO6 ~ 000100 CONT = 000100 DORTI 032734 DT44A 054256 
ADEVM = 000000 BITO7 000200 COUNT 033000 DPB.A 047016 DT44B = 054272 
AENV ~- 000000 BIT08 000400 CPSAVE 022256 DPB.B 047036 DT45 054300 
AENVM 000000 BITO9 - 001000 CR = 000015 CPB.C 047056 DT45A 054316 
AFATAL 0006090 BIT1 - 000002 CRLF = 000200 DPB.R 047116 DT45B =: 054332 
AMADR1- 000000 BIT10 002000 CYL.DS 001366 DPINT 040552 DT5 053760 
AMADR2 000000 BIT11 ~ 004000 CYL.RD 001360 DPR = 000400 DVA = ~- 004000 
AMADR3= 000000 BIT12 - 010000 C.SWR 001314 DPROS 040562 EBL ~ 020000 
AMADR4- 000000 BIT13 020000 DATCMP 034474 DRIVES 047457 ECH -~ 000100 
ACAMS1~ BITI4 040000 DCK = 100000 DROP 047634 EC! = 004000 
AMAMS2 000000 BIT15 = 100000 DDISP = 177570 DRQ = 004000 ECRC ~ 001000 
AMAMS 3= 000000 BIT2 000004 DECSEC 033704 DRVACT 040522 EECC = 000020 
AMAMS4= 000000 BIT3 - 000010 DECSK 010110 DRVCAL 031204 EMPTYO 046414 
AMSGAD 000000 BIT4 000020 DELTA 001450 DRVCLR= 000111 EMTVEC= 000030 
AMSGLG- 000000 BITS - 000040 DFLT 902526 DRVCL1 031224 EM1 050660 
AMSGTY= 000000 BIT6 ~- 000100 DF 1 054346 ORVINT 041072 EM10 051115 
AMTYP1= 000000 BIT? - 000200 DF10 054366 DRVMSK 001354 EM11 051173 
AMTYP2= 000000 BIT8 000400 DF 11 054372 DRVQUE 046434 EM12 051230 
AMTYP3= 000000 BIT9 = 001000 DF12 054376 DRVSEL 001330 EM13 051255 
AMTYP4= 000000 BLNKS1 050346 DF13 054406 DRVSTA 040532 EM17 051302 
AOE = 001000 BLNKS2 050345 DF14 054416 DRVTYP 040542 FM2 050732 
APASS = 000000 BLNKS3 050344 DF 17 054422 DRY = 000200 EM20 651334 
APRIOR= 000000 BLNKS4 050343 DF2 054352 DSWR = 177570 EM23 051403 
APTCSU= 000040 BPTVEC- 000014 DF 21 054426 DTADPB 047076 EM24 051432 
APTENV= 000001 BSE = 100000 DF 22 054436 DTE = 010000 EM3 050770 
APTSIZ= 000200 BUFFER 05452 DF 23 054442 DTG = 000020 EM4 0510c¢> 
APTSPO= 000100 BUSADR 001324 DF3 054356 DTO 020000 EM41 051472 
ASWREG= 000000 BYPASS 001350 DF4 054362 DTUW 040634 EM46 051506 
ATA = 100000 CALL.A 030402 DF41 054452 DTOO = 000001 EMS 051061 
ATABIT 040636 CALL.B 030550 DF 42 054456 DT01 = 000002 ERINDX 032170 
ATESTN= 000000 CALL.C 030766 DF 43 054462 DTO2 =~ 000004 ERMAX 001316 
ATO = 000001 CALL.R 032016 DF 44 054472 DTO03 = 000010 ERR ~ 040060 
Avl ~ 000002 CHKDRV 001352 DF4S5 054506 DT04 - 000020 ERRCN 001472 
AT2 = 000004 C14 042126 DH1 052337 DTO5 = 000040 ERROR - 104000 
Arg 000010 C13 042234 DH10 052545 DTO6 = 000100 ERRVEC~ 000004 
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SYMBOL T 

RDLIN 4411 
ROY . 10200 
RD.ADR 045326 
RD.RM 045302 
RD.RM1 9045324 
RO.RM2 045450 
RD.RM3 045454 
RD.RMG 045460 
RD.WRD 045330 
READ = 0C0171 
READHD= 00017 

READIN= 000121 
RECAL = 000107 
RELEAS= 000113 
RESREG= 104413 
RESVEC= 000010 
REV 050152 
REX = 010000 
RHVEC 001504 
RH.AOR C€01502 
RMADR 040650 
RMAS - 000016 
RMBA = 000004 
RMCS1 000000 
RMCS2 000010 
RMDA ~ 0U0006 
RMDB - 000022 
RMDC ~ 000034 
RMD S 000012 
RMDT ~ 000026 
RMEC1 -— 000044 
RMEC2 - 000046 
RMERRS 040512 
RMER1 - 000014 
RMER2 - 000042 
RMHR -— 000036 
RMINIT 040660 
RMLA 000020 
RMMR1 - 000024 
RMFR2 000040 
RMOF - 000032 
RMR == C00004 
RMSN ~- 000030 
RMTMR 044670 
RMVEC 040652 
RMWC 000002 
RM.REG 047140 
RMOS 041406 
ROTATE 047754 
RPT 002336 
RSTART 006662 
RSTRT1 006712 
RTC == 000117 
RTURN 021600 
R6 ~%0€9006 
R7 =%090007 
SAVCSwW 0017320 
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SRVCLK 
STACK — 
STALL 
STALLO 
STALL1 
STALL2 
STALL3 
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START 
START3 
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= 104405 


0 
001224 


SEQ 0203 


er erp 
a ne ne 


CZRMVBO RMO5S/3/2 EXT'D DR TST 


SYMBOL TAB 


$SCHARC 
SC KSWR 
SCMTAG 
$cM1 
$CM2 
$CM3 
SoM, 
SCNTLC 
SCNTLG 
$CNTLU 
$C PUOP 
SCRLF 
$DBLK 
$DB82D 


ee 


SERRPC 


. ABS. 


0 
ERRORS DETEC'ED: 


LE 


923372 
024360 
001114 
00 


0006 
000014 
000006 
000003 
025272 
025304 
025277 


021506 
001117 
001131 
021620 
001132 


054522 
00000 


000 
001 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 


CZRMVB.BIC.CZRMVB/C CZRMVB.DOC,CZRMVB,SYSMAC/M 


$ERRTB 
SERTIL 


62464 WORDS 


J 16 
MACRO V04.00 4-APR~81 11:57:12 PAGE 42-5 


NOW? Unn 


001124 
001266 
001272 
001276 
001302 
001234 
001264 
001270 


( 244 PAGES) 


SMAMS 3 


0012 
0013 


™N 
PMOPIDNIWNNUNWN > 
NNO PWWMUIN = OOn 
WM Mn BNONNING & 


001301 


001204 


$REG4 
$REGS 


ANIA SS BS SO 
ANNWO £&OW 


001214 


$TMP2 001216 


1 
SXTSTR 025374 
$$GET4= 000090 
SOFILL 023621 
-$X = 001100 


K 16 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR=81 11:57:12 PAGE S~1 


CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0205 
SSGET4 17-1 17-18 
—$OFILL 21-1 21-1# —2T=1" T= 1s 

$40CAT 18-1 241 

SAPTHD _5#12 5-128 

SASTAT 32-1 32-1 


$ATY3 920-1 32-14 


S$ATYG 18-1 32-14 

$ATYC 32-1 32-18 

$AUTOB 6-04 11-38* = 23-1 23-1 23-1 

SBASE 6-0" 

$SBDADR 6-04 337387" 33~:52* 41-13 

SBDDAT 6-04 33-917" 33-989* 33=:54" 41-13 41-16 

SBELL 6-04 11-42 18-1 18-1 18=1 23-1 23-1 23-1 

SCHARC 20-1 20-14 20-1* 20-1* 20-1* 

$CKSWR 23-14 26-1 26-1 . 

$CM1 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-9 6-0 6-0 6-0 6-0" 6-04 
6-04 6-04 6-04 6-04 6-0" 

$CM2 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0" 6-04 
6-04 6-04 6-04 6-04 6-04 

$CM3 6-0 6-0 6-04 

$CM4 6-0 6-0 6-0 6-0 6-0 6-0 6-04 6-04 6~04 6-04 


SCMTAG 6-04 11-33 11~33 11-33 11-33 11-33 11-33 11-35 
SCNTILC 23-1 23-1 23-1 23-1 23-14 

SCNILG 23-1 23-14 

SCNTILU 23-1 23-1 23-18 


SCRLF 6-04 11-65 11-105 = 11-150) 12-45 12-65 13-46 13-68 18-1 18-1 18-1 19-42 19-58 19-69 
rae? 19-93 19-100 20-1 20-1 20-1 23-1 23-1 23-1 23-1 33-15 33-692 »=—- 33-693 333-708 
-> 
$0B2D 27-1 28-14 
$DBLK = 22-1 22-1 22-14 
SDECVL 28-1 28-14 
SDEVCT 6-07 


$DIV 14-70 14-336 §=614-528 §= 31-14 33-765 

$DUAGN 17-1 17-1 17-14 ‘ 

$DTBL = 22-1 2c- 14 

SENDAD 5-9 11-38 17-18 18-1 

SENDCT 11-33 12-40* 12-57* 12-66 17-14 

SENULL 17-1 17-14 

SENV 6-04 11-38 18-1 20-1 32-1 32-1 

SENVM 6-04 11-33 20-1 20-1 32-1 

$EOP 13-37 16-372 17-14 23-7 33-23 33-475 35-47 

SEOPCT 11-33" 12-66" 13-27" 8 17-1 17-14 33-22% 

SERFLG Poe 18-1 18-1 18-1s 24-1 24-1 24-1 24-1 24-1 24~1* 33-432 «= 33-902. 333-933 33-:07 

SERMAX 6-04 11-33* 13-69% 14-44% 16-798 14-1098 14-1418 14-170" 14-2398 14-276" 14-316" 14-3928 14-543" 15-29" 
15-154" 15-233" 15-318* 16-20" 16-778  16-156* 16-287* 16-372" 24-1 24-1 24-1 24-18 

ERROR 11-33 18-14 

SERRPC 6-04 18~1 18-1 18-1 18-1* 18-1* 19-111 41-3 41-4 41-5 41-6 41-7 41-8 41-9 
41-10 41-12 41-14 41-15 41-17 41-19 41-20 41-21 41-23 41-26 

SERRTB 8-0F 19-37 19-38 

SERTTL 6-0" 17-1 17-1 17-18 18-1 18-1 18-1* 

SESCAP 6-0" 11-33" 15-60" = 15-175" 15-254" 15-339" 18-1 18-1 18-1 18-1 24-18 33-2422 33-249" 33-2728 
33-2798 33-312 33-319" 33-355" 33-365" 33-386 33-393%  33-417% 33-4478 33-4548 33-471% 33-579e 33-584" 33-6089 


SEQ 0206 


L 16 


MACRO VO04.00 4-APR=81 11:57:12 PAGE S-2 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


CZRMVBO RMO5/3/2 EXT'D DR TST 


34--92s 
33-;06 
14-392 


34-=91 
33-:90 
14-316 


34-281 
33-746" 


34-;77 
33-243" 


34-:18 
33-:37 


34-832 
30-1* 


34-830 
30-14 


33-:50* 34-772 


33-+:03e 


33-9978 
11-33 
15-233 


33-927« 
6-04 
15-154 


33-9220 
6~0F 
32-18 
3e-14 
20-1 
26-1 
4-37 


33~615* 
34-2948 
6-04 
5-12 
6-04 
32~1 
6-0" 
6-04 
6-0" 
6-0" 
12-53 
4-37 


$E TABL 

$E TEND 

SFATAL 

$FFLG 

$GET42 

SGTSWR 23-14 





32-18 30-1 


32-1 


CZRMVBO RMO5/3/2 EXT'D DR TST 


SOCNT 
SOMODE 
SOVER 
$PASS 
SPASTM 
$QUES 
SR2A 
SRAND 
SROCHR 
SRODE C 
SROLIN 
$RDOC” 
ERDSZ 


SSE TUP 


$STUP 


SSUPRS 
$SVLAD 
$SVPC 
$SwWR 


SSWREG 
SSWRMK 
STESTN 


STIMES 


$TKB 

STKCNT 
STKINT 
STKQEN 
$TKQIN 
$TKQOU 


16-2874 


21-18 

21-1 

24-1 
6-0" 


5-12" 


6-0# 
26-1 
14=70 
23-14 
26-1 
o3-1s 


ee ees 
WOW & % BHRWWO 
rAOS 


—NN AA 
“se Sh Ae a a He We 
t 


—_ — 
ee 
i) 


21-18 
21-14 
24-1 
11-33 


18-1 
14-330 
26-1 
26-1 


23-14 
19-148 


37-298 


26-1 
33-700 
24-14 
4-298 
11-% 
17-1 
4-298 


4-2984 


33-701 


16* 


16-372 
21-18 
2i~1* 
24-1 
17-1 


18-1 


14-528 
26-1 


26-1 


41-10 
41-4 
41-9 
41-3 
41-13 
41~7 


34-<16 


26-1 
33-705 
4-298 
11-33 
18-1 
4-298 


4~-2984 


33-706 


14-45 


14-317 


16-21 
14-44" 
16-20* 
20-1 
23-14 
23-1 
23-14 
23-14 
23-14 


16-372" 
21-18 
17-18 
20-1 
33-546 


i | ie 
ze NOMOOO 
one 


POR ROR e eee oe 
_—— BS SIA 


a, 


M 16 
MACRO V04.00 4-APR=81 11:57:12 PAGE S=5 
CROSS REFERENCE TABLE (CREF vO01-05 ) 


16-2874 


16-372« 
21-18 

17-18 

23-1 2341 
33-:88  33-;03 


4 


1-19 41-20 
41-16 


33-749 33-752 


4-298 _4-2988 
11-33) 11-33 
18-1 23-1 
4-298  4-2984 


33-749 33-752 


4-38 4-38 
14-44 14-79 
16-20 16-77 
18-1 18-1 
24-1 24~1 
14-109* 14-110 
14-543% 14-544 
16-156" 16-157 
14-141" 14-179 
16-287* 16-372 
23-1 23-1 
23-18 
23-18 = 23-18 
23-18 


23-1 


41-23 


33-759 


4-2984 
11-33 
23-1 

4-2984 


33-759 


33-772 


4-2984 
11-33 
23-1 

4~-2984 


33-772 
5-2174 


14-239 
17-1 


33->62 


4-2984 
11-38 
24-1 

4-2984 


33->62 


6-0 
14-274 
17-1 
18-1 
26-1 


14-239* 
15-233* 


SEQ 0207 


4-2984 11-33 


11-38 


15-3188 


4-298 


41-23 


SEQ 0208 
2t-18 


41-21 


25-1* 


23-1* 23-1* 23-1 
41-15 41-17 41-19 41-20 


23-18 


23-1 
41-14 


N 16 
E S- 


1 
MACRO V04.00 4-APR=-81 11:57:12 PAGE S=4 


CROSS REFERENCE TABLE (CREF vO01-05 ) 


$TKQSR 23-1 
$TKS 


23-1 
41-12 


23-1 
41-10 


23-1 
41-7 


41-6 


CZRMVBO RMOS/3/2 EXT'D DR TST 
6-04 
6-04 


$TKSRV 23-1 
STMPO 


3 
ONM MICO wonar 
-n THUR SRO OV OAMT ON ASR 
Tas aN er ne aR 
pl ala ek ee ek eh a ee ee 
RRVBRR 
a Sox om —rmoo OR MC 
SESSRORO GT AUMEORADYe 
Tee LE LCLC Lt 
4 
aaa TE ek ok el ek ee el oe oe 
OAs ON) TMI. wr 
TRH KAN MINN NM MOK OM VV 
TevpevuevurebbetPtebprrr_detbaut 
SPT EEN OO 00M) 
a ek ek ok ooh oe ok oe ee 


[ons Awsrwonm. ~$TMAB ~ ow 
po SSCA CRO AMS Anuar RO 
carr Tad sl Waa eer We 

‘ 
RRR RRR IC CIR TT TY taal Val olvolvolvo lve} 
So al 


Keer rer rr errr rrr e re 


AKOAwsOUM MIKRAORR 
TRAOVSAMR H—ATASTOM=— ON 
SRS RK NOMA MOR 
pPreevuvr/etvoedrovetteteur 
SP rer TINA O00 0 


Lae ek ee ek ok ok cool mek ooh cel ol eel oe oe 


eoneusgn 
SPT TAT TANNIN OO 0 0 0 


Lee ee nn ek ek ook ook ool ek ook ood eel sed 


& 
A-OATONODO, TMC wonon 
TAOTRMNEK — AMOANMe OR NOON 
TRE EH NIM TAA Me CUM OUR. = CUNY 
eerrtrerprue)etetvanterbeberetta 
SPT TT TAT TINNNN O00 00 


Hee ae ek ee ek ood oe ed 


A-OAMaHeMms RM 00 orc 
TRAOTR MOD CUA TAIN) - OR NOR. 
STR HR KM AUK CUMMNA CU CUMOAIR — CUM 
preter rreeveprtetetevetutrendza 
Se reser rer FNNNN OO 000 
Ch cel eth eee el soe ee eh me mee ee ee ee gee el ee ee ee od 

NOOOAK. am ~wrmoo wor 
BRO OMUOANR — ATAMNM e- OR MOR 
PUDRCACRCRD ADAMO SST RED 
PFT PET INNNOOOOO 
SE CS Te SESS Se See 


~ onsinsam wrmoo onc 
OO Om TKR TR AT OAINM - OR. NOR. 
ater ener ermhanararierial eran eerie ark 
1 

wvwersrs rer rr NUNN OOO 00 
SS ee ee ee 


15-233 
24-1 


15-1548 


24-1 


15-29% 
24-1 


20-1 20-1* 


20-1 
23-1 


32-1 
20-14 


1 
1 
1 
1 


26-1 


STRPAD 26-1 


1 
1 


15-318* 
$STYPOC 21-14 


24-1 


6-0# 
$TTYIN 23-1 


6-04 
6-04 
11-33 
$STRAP2 26- 
5-124 
6-04 
6-04 


26- 
26- 
26- 
20-14 
20- 
$TYPEX 20- 
21-1 
$TYPOS 21-14 


STYPDS 22-14 


STNPWR 28-1 
STRAP 

$TRP 

STSTM 
STSTNM 
STYPBN 26-1 
$TYPE 

$TYPEC 
$TYPON 


B 1 
CZRMVBO RMOS/3/2 EXT'D DR TST. MACRO VO04.00 4-APR-81 11:57:12 PAGE S=5 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0209 


$X0N 20-1 20-1 23-1 
$XTSTR 24-14 


“SASTA 32-1 32-1 
SX 5-12 5-124 
Al6 4-798 
Al? 4~80# 
ABASE 6-0 6-0 
ACDW1 6-0 

| ACDw2 6-0 


ACPUOP 6-0 
ACTDRV 34-934 34-347" 34-398" 34-691" 34-699" 34-986 
ACTSTR 34-994 34-988 34-:02* 


ADDWO 6-0 
ADDW1 6-0 
ADDW10 6-0 
ADDW11 6-0 
ADDWI2 = 6-0 
Avbw13 6-0 


6-0 


20-1 32-1 32-14 





Cc 1 
CZRMVBO RMO5/3/2 EXT'D DR TST MACRO V04.00 4-APR=81 11:57:12 PAGE S-6 
CROSS REFERENCE TABLE (CREF vQ1-05 ) 


AT} 4-200#8 
AT2 4-2014 
AT3 4~2024 
ATS 4-2034 
ATS 4~-2044 

- AY6 4-2054 
AY7 4-206 
ATA 4-1584 

| ATABIT 12-29 33-10 33-21 

34-.51 

ATESTN 6-0 6~0 
AUNIT 6-0 6-0 
AUSWR 6-0 6-0 
AVECT1 6-0 6-0 
AVECT2 6-0 6-0 


AVERGE 7-0 37-444 

BADTMO 11-34 11-35 

BAI 4-974 

BASFLG 7-O# 14-81* 16-336 
B1T0 4-714 

BI TOO 4-71 4-714 7-0 


BITQ1 4-71 4-714 7-0 
BITO2 4-71 4-714 7-0 
BITO3 4-71 4-714 7-0 
BITO4 4-71 4-714 7-0 
BIT05 4-71 4-714 7-0 
BIT06 4-71 4-718 7-0 
BIT07 4-7) 4-714 7-0 
BITO8 4-71 4-714 7-0 
BITO9 4-71 4-714 7-0 


BIT10. 4-718 7-0 18-1 
BIT11 4-718 7-0 24-1 
BIT12 4-71" 7-0 33-472 

34-;11 34-366 34-<43 
BIT13. 4-718 7-0 18-1 
BIT14 4-718 7-0 24-1 
BITIS 4-718 7-0 33-638 

34-B49 34-865 34-875 
BIT2 4-718 — 34-:83 


15-318 16-20 16-77 
BLNKS1 33->90 37-614 
BLNKS2 11-133 19-63 19-89 
BLNKS3 37-594 
BLNKS4 11-107 37-584 
BPTVEC 4-714 
BSE 4-262" 33-254 33-286 


BUFFER 14-407 16-33 16-45 
33-568* 33-569 33-571 


33-<29 


16-353 


34-885 


14-109 
16-156 


19-96 


33-326 
16-56 
33-573 


33~<35 


33-372s 


33-500 
33-472 
34-375 
34-965 


14-141 
16-220 


19-103 


33~370 
16-90 
33-574 


34-1454 


33-400* 


13-39 
33-500 
33-503 


14-170 
16-287 


33-746 


33-398 
16-100 
33-575 


34-318 


33-424" 


18-1 
34-390 


34-:71 


34-381 
34-711 


24-1 


34~657 
34-417 
34-328 


34-820 
34~387 
34-390 
34-:75 


34-410 


18-1 
34-655 


34-454 
34-849 


33-515 


34-618 
34-392 


34-515 


24-1 


34-734 
34-865 


34-339 


34-972 
34-425 


34-805 
34-422 


34-895 


24-1 


34~-<42 
34-885 


34-608 


34-965 
34-425 


14-392 
33-=71 


33->86 


16-324 
33-860 


34-923 


33-144 


34-927 


34-653 


3-:75 
34-618 


14-543 
33=>31 


37-604 


16-333 
33-861 


34-931 


34-<03 


34-669 


34-321 
34-655 


15-29 
33-766 


16~343 
33-885 


34-932 


34-875 


34-525 
34-657 


15-154 


16-350 
33-946 


SEQ 0210 


34-954 


34-877 


34-<40 
34-734 


15-233 


16-360 
35-965 


D1 
CZRMVBO RMO5/3/2 EXT'D DR TST — MACRO V04.00 4-APR~81 11:57:12 PAGE S-7 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0211 


33-980 9 33-:22 «= 33-239 «55-240 933-357 = 36-8 36-32 36-56 36-80 36-104 42-1044 

BUSADR 7-04 11-15* 11-18% = 11-22" 2-11-25 = 35-13 35=-15* 

BYPASS 7-Q# 13-37" = 14-70" 14-92% 14-717" 16-1498 14-182" 14-2678 14-2828 14-325 14-454" 14-555" 15-60" 15-175* 
15-254% 15-339" 16-268 16-83* 16-220" 16-292" 33-434 33-904 33-:09 33+: 74 

C.SwWR 7-Qe 12-6 12-9 12-35 13-39 14-182 15-64 15-124 16-299 33-93 33-103 «= 33-113) 333-144 = 353-226 
33-300 33-340 33-435 9333-544 33-361 = 335-765 = 335-5 66" 

CALL.A 13-43 13-45 14-70 14-341 15-60 15-175 15-254 «15-339 16-381 «= 16-386 33-242" 33-265 33-585 

CALL.B 14-70 14-95 14-121 14-128 «= 14-152 14-156 14-187 14-193) 14-208 = 14-214 = 14252 = 14-254 = 14-292 = 14-294 
14-296 14-298 14-300 14-302 14-361 14-558 33-2724 33-275 

CALL.C 14-94 14-557  33-312M 33-315 

CALL.R 33-259 33-291 = 333-331 33-429 = 33-4474 = 33-450 

CHKDRV 7-04 13-13" 13-17" = 13-22 17-1 33~$5* 33-36 33-187 41-10 41-12 4i-14 41-15 41-17 41-19 
41-20 41-21 41-23 41-26 


34-626 34-6404 34-769 34-:66 
3-<26 «= 33-66 = 33->93 = 333-718 )3=— 333-424 «33-879 «= 33-886 = 53-891 = 33-36 


C11 34-444 = 34-4724 

C13 34-446 34-4964 

C14 34-438 34-5184 

CIS 34-494 34-516 «= 334-5964 34-606 

C16 34-534 34-544 34-546 34-548 34-6024 

Ci? 34-377 = 334-453 334-484 = 34-488 = 34-492 = 334-501 46-510 34-514 34-526 = 354-533 0 54-539 = 34-563 34-557 §9=— 39-563, 
34-567 34-577 34-588 34-605 34-6084 34-715 34-910 34-<15 

a 

C 


é 3->80 33-a734 
CK.NUM 33-393 »= 333-702) 333-720) »=_ 33-194 
CK.OCT 33-<73 33-<77 33-=00 33-=04 33-a024 33-A21 33-A31 


CKSWR = 18-1 18-1 24-1 26-14 

CLKSTA 7-04 12-67 14-454 14-454 15-31 15-156 §=15-235 = 15-320 33-78* =—33-80* 33-86* 
CLOSE 33-2755 33-760  33-?72A4 

CLR 4-994 14-454 14-454 14-528 33-34 33-604 34-233 34-680 


CLRQUE 14-413 34-215 34-679 34-<94a 

CLSWOS 33-235 33-239 33-2454 

CNTCLR 11-97 13-30 15-100 15-109 15-119, 15-121) 15-191 15-209 15-211 15-268 = 15-280) 15-291 15-293 =: 15-353 
15-365 15-378 15-380 33-334 

CNTRLC 7-O# 11-19% = 11-26* = 11-101 12-3 

COMMA 12-61 13-49 33-19 37-324 


COUNT 15-111 15-193 15-271 15-283 1 
CPSAVE 18-1 18-1 18-1 18-1 1 


CRLF 4-714 11-6 11-38 11-38 1 
33-<23 = 35-49 35-50 37-17 3 

37-42 37-43 37-43 37-44 ; 

4 


15-368 33-6554 
18-14 18-1* 18-1* 19-111 = 24-1 24-1 24-1 24~-1* 24-1* 
1 


9 1-70 11-76 11-77 17-1 17-1 17-1 20-1 20-1 33-; 59 
0 37-30 37-33 37-35 37-36 37-38 37-39 37-39 37-40 37-40 
4 37-45 37-46 37-47 37~49 37-50 37-51 

CYL.DS 7-0OF 14-454% 33-250* 33-280* 20* 33-366 33-394" 33-418" 33-655" 33-578* 33-616" 33-920" 33-993" 41-10 

41-11 41-12 41-15 41-17 3 

CYL.RD 7-O# 33-573* 41-11 

DATCMP 16-256 33-9644 

DCK 4-157# 

DDISP 4-714 6-0 11-33 

DECSEC 33-8264 

DECSK 14-127 14-131 

DELTA 7-04 14-401" 14-402" 14-403 14-405" 14-528 914-528 = 14-528* §=14-528* = 14-528" 

OF 1 8-14 42-34 

DF 10 8-83 42-198 


_ 


E—E 1 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.CO 4-APR~81 11:57:12 PAGE S-8 
CROSS REFERENCE TABLE (CREF VvO1-05 ») 


OPB.C 


DPB.R 
DPINT 


DPROS 


8-94 
8-108 


34-708 


42-234 
42-2784 
8-145 
8-154 
8-176 


34-363 


42-344 
42-414 
42-454 
4eo~7# 


42-604 


42-934 


8-143 


40-124 
40-44 


40-154 


34-247 
34-411 


8-296 


34-448 


8-312 


34-628" 


8-328 


33-6254 
14-46* 

14-528* 
16-380* 


40-98 


14~3198 
15-60« 

16-384* 
14-82 

14-155* 
14-293* 
14-550* 


36-994 
34-955 


34-663" 


16-385" 
14-84% 

14-173* 
14-295« 
14-563* 


14-559* 
36-514 


34-957* 
34-792 


14-343 
15-60* 
33-244 
14-86* 
14-1748 
14-297* 
14-564 


14~560 


34-:30 
34-332 


14-112" 
14~186* 
14-299* 
33-228" 


14-562* 


34=-:53 
34-355 


14-398* 


14~301* 
33-231* 


33-229" 


34~:59 
34-361 


14-411 
15~175* 
33-250 
14~-118* 
14-207* 
14-318* 
33-274 


33-232* 


34-:69" 
34-2 79e 


SEQ 0212 


14-454 
15-254* 
33-250 


14-122* 
14-213* 
14~327* 
33-276 


33-314 


14-454 
15-2548 
33-250 


14-423 
14-242" 
14-3378 
33-280 


33-316 


Fo 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 4-APR~81 17:57:12 PAGE S-9 
CROSS REFERENCE TABLE (LREF VO01-05 ) SEQ 0213 


DRIVES 12-39 37~304 

DROP 33-18 37-378 

DRO 4-222H ; 

DRVACT 14-482 34-30H 34-371 9 -34-551% 34-599" 34-6308 34-643 9 34-662" 354-704" 34-812  $4-847 34-879" 34-867" 34-907 


DRVCAL 16-36 16-39 16-43 16-52 16-58 16-95 16-106 = 16122, 16-128 )=— 16-239) 16244) = 16-253 = 16-304 = 16-329 
16-335 = 16-346 = 16-352) 16-362 «= 333-3554 933-359 
— DRVCL1 14-488 33-3614 33-362 
DRVCLR 4=-2778 14-475 


DRVINT 34-235 34-269% 34-359 34-944 34-958 

DRVMSK _7~-O# 13-14% 13-15 13-18* 13-26 

DRVQUE 34-366 34-379 = 334-= 344 

DRVSEL 7-04 12-19% 12-29% = 12-42 13-5 13-15 13-26*  23-6* 33-10 33-218 = 33-224 = 353-<29" = 33-<35* 35-468 

DRVSTA 11-108 12-23 13-23 34-408 = 334-225% = 34-226* 34-227" 34-228" 34-238* 34-270" 34-280" 34-324" 34-330" 34-353 
34-361 34-385 34-419 = 334-423 34-552 34-683" 34-795 = 34-803 = 34-818 = 354-873" 34-880" 34-896 34-960 = 34-: 708 

Sala ep 11-135 = 15-69 15-78 33-199 = 34-52 354-271 34-2872 34-292" 34=297" 34-702" 34-388 34-684" 

Y - a 

DSWR 4-718 6-0 11-33 

DTOC 4-2134 

D101 4-2148 

DTO02 4-2154 

DT03 4-2164 

DT04 4-2174 

DTOS 4-2184 

DT06 4-2194 

D107 4-2204 

DT08 4-2214 

O71 8-13 41-34 

01710 8-82 41-84 

OT11 8-93 41-94 

DT12 8-107 41-104 

DT12A 8641-114 

D113 8-121 8-144 41-124 

DT13A 8-130 8-153 41-134 

DT17 8-164 8-175 41-144 

DT2 8-24 8-57 41-44 

DT21 8-189 41-154 

DT21A 8-198 41-164 

DT23 8-211 8-224 41-174 

DT23A «41-184 

DT3 8-35 41-54 

DT4 8-46 41-64 

DT41 8-257 41-194 

DT42 8-268 41-204 

D143 8-281 41-214 

DI43A 841-224 

D144 8-297 41-234 

DI44A 41-244 

DI44B «441-254 

D145 8-313 8-329 41-264 

DT45A = 41-274 

01458 41-284 

DTS 41-7# 

DTADPB 13-35* «= 14-352" 14-355 = 14-358" = 14-360* 14-396% 14-397" 14-399" 14-4062 14-4072 14-465" 14-468 14-4671" 14-4738 
14-474 = 14-479% 14-480 = 14-486 = 14-528) 3=—14-528* 15-63 15-100 15-109 15-119) -15=177* «= 15-178* 315-184 = 15-191 
15-196* 15-197 15-201" 15-202 15-209 15-268 15-280 15-291 15-3535 15-365 15-378 16-29% 16-30* 16-31% 
16-32* 16-33" 16-35" 916-37" = 16-42" = -16-48* = -16"49* = 16-50* = 16-51 = 16-54" = 16=55* = 16"56* = 16-57" = 1-86 


ce cridieenemnedseneneenaatemenenennnctiiiteseeaeann’ioenmetae teen To ET 


CZRMVBO_RMOS/3/2 EXT'D DR TST 
TABLE (CREF VO1-05 ) 


CROSS REFERENCE 


16-87% 
16-124" 
16-296" 
16-333« 
33-366 
33-407 
33-616 
OTE 4-1544 
DTG 4-1844 
OTO 4-1934 
DTUW 14-481* 
34-319 
OVA 4-1244 
EBL 47-1744 
ECH 4~-1484 
ECI 4-2454 
ECRC 4-1704 
EECC 4-1654 
EM} 8-11 
—M10 8-80 
EM11 8-91 
EMI2 §-105 
EM13 8-119 
EM17 8-162 
EM2 8-22 
EM20 8-173 
EM23 8-209 
EM24 8-222 
EM3 8-33 
EM, 8-44 
—M41 8-255 
EM46 8-327 
EMS 8-55 
EMPTYQ 34-627 
EMTVEC 4-714 
ERINDX 33-250 
ERMAX fe es 
ERR -1374 
ERR.CT any 
ERRCN 7~O4 
ERROR 4-714 
ERRVEC 4-714 
24-18 
ES.SAV 34-772 
ESRC 4-1724 
EXCEED 33-20 
EXIT.A 15-138 
EXITO 14-70 
EXIT1 14-92 
EXIT10 14-454 
EXIT11 14-555 
EXIT12 15-35 
EXIT13 15-160 
EXIT14 15-239 
EXIT15 15-324 
EXIT16 16-26 
EXIT17 16-83 


16-88* 

16-125* 
16-297* 
16~340* 


11-86* 
11-33 
24-18 
34-830 


37-384 
15-1394 


16-1344 


ee See 


8-187 


8-279 


34~735 
11-33* 
33-320 


11-89* 


11-33* 
33-47% 
34-832 


38-114 


8-295 


34~:84 
33-366 


B~-317 


34-2194 
33-394 


15-189 
16-156 
11-89» 


11=35* 
33-53 
34~-;77 


MACRO VO04.00 4-APR-81 11:57: 


38-164 


33-418 


15-266 
16-287 
11-89* 


11-36* 


33~-53* 
34-=904 


15-1434 


G 1 
12 PAGE S-10 


33-455 
15-278 


33-4944 


15-351 
33-902 


34-666" 


33-616 


15~363 
33-933 
11-89% 


18-3* 
35-33" 


34-677* 


33-:07 
33-12* 


24-1 
35~35* 


33-:66 
33-13 


24-1 
35-418 


SEQ 0214 
16-115* 16-118+* 16-121* 
16-243% 16-252" 16-295« 
16-323* 16-325* 16-33?* 
33-358 33-361 33-366 
33-394 = 33 -403% 35 %-405 
33-610 33-612 33-616 
33-345 335-246" 36-754 
34-705* 34-:35 34-:478 
24-18 24-"* 24-18 


CZRMVBO RMO5/3/2 EXT'D DR TST 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


ExITe 
Ex1T20 


an AWM 
MAS WI > 


INCCYL 


14-117 
-220 


't 

Non 
Cw 
NRO oh 


NNNMN S=NMOLOL 


WN 
zr 


— oe 
BEE ES EEE OOO 
NN Ww 
oOown 
RR 


ns 
ons 
ebpoe 
=—WN? PP mPa 
Ans N 
z 


64 


4 
Wr 


by har ee tse 
COOL 
—_ 


—t 


14-1324 
16-220 
16-3634 


14-1604 
14-2264 


33-284 


20-1 
18-1 


14-122 
14-563 


33-8114 


16-220 


35-19 
34-725 
11-6 
26-1 
26-1 
33-<26 
33-=97 
33-<88 
33-<64 
33--35 
33-324 


20-1 


18-1 
14-129 
33-813 


16-2604 


14-70 
14-398 
15-273 


14-112 
14-113 


35-26 
34-799 
11-38 
26-1 
26-1 


33-<26 
33->07 


33-201 


33~-<68 
33-=394 


34-838 
11-59 
26-1 
26-1 
33~<26 
33-765 
33~=15 
33-+<72 


18-1 
14-202 





14-173@ 14-242 
14-174 14-243 


34-909 34-964 


11-70 11-76 
26-1 26-1 
26-1 26-1 


33-<26 = 333-<28 


33-=18 33-=45 
33~-=384 


18-14 18- 
14-223 14 


H 1 
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34-:38 
11-77 
26-1 
26-1 


33-<28 


33~=76 


34-:72 
17-1 


26-1 
33-;59 


33-=85 


34-:80 


17-1 
26-1 


33-<23 


35-=92 


14-403 


14-224 
14-562 
16~384 


15-60 
14-397 


34-=554 


17-1 
26-1 
33-<39 


33->02 


14-405 


33->22 


14-492 


14-261 
33-:39 


16-165 
14-549 


19-52 
26-1 
33-712 


14-528 


“EQ 0215 


14-283 
15-175 


16-182 
15-60 


19-66 
26-1 


14-526 


I 1 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE S~1e 
TABLE (CREF vO1-05 ) 


CROSS REFERENCE 


INCEC 
INCSK 
INCTRK 
IOTVEC 
IR 

ISR 

IT 
ITEM41 
LC 
LOCMD 
LF 

LKS 
LKV ” 
LODEV 


LODFLT 
LODPRM 


LGP.CK 
LP.AVL 
LPB 
LPS 
LPTAVL 


9-41 


ey 
{ 
—_ 
Nm 
NOS 
2 


' 
Mm konNN 
ervioqrw 


ato 


a 


ari Gora a fe 


~Wo 

ALA 
Lune 
SRA 
= = 6 —0O 


aaa 
ows 


f 
S 


io) 


ee 
Oo 
nm 
~ 


16-98 
14~85 
37-544 
37-534 


34-;01 
37-104 


37-124 
37~114 


35-49K 
35-504 


33-16 


37-174 
33->88 


34-247 


37-364 


33-214 


16-129 
33-794 


37-164 


14-87 14-123 
14-528 14-528 
37-42 3743 
33-116« 

14-170 14-239 
16-372 33-180" 
33-431 33-458 
16-132 16220 
33-797 33-799 


14-274 
33-4684 


16-224 


34-6914 


14-316 


16-306 


14-392 = 14-543 


33-201¢ 33-213* 


14-213 16-249 
15-366 16-222 


15-29 15-154 


33-316 


14-257 
16-309 


15-233 


SEQ 0216 


14-284 
16-379 


15-318 


J 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO4.00 4-APR-81 11:57:12 PAGE S-13 
CROSS REFERENCE TABLE (CREF v0O1-05 ) 


MSG.IT 9-51 37-94 
MSG.LC = 9-47 37-54 
MSG.LS 9-56 37-144 
MSG.LT _9-50 37-84 
MSG.PA 33->87 37-154 


9-45 3 
MSGOUS 33-702 33-707 33-743 33-750 33-753 33-760 33-770 37=-52e 


MSG7XA = 7-0 7-0 37-624 
MSG7XB_ 7-0 7-0 37-634 
MSGAVG 33-761 37-514 
MSGBO 7-0 9-154 


MSGMAX 33-703 33-751 = 37-504 
MSGMIN 33-699 33-741 37-49# 


MSGTST 14-45 14-80 14-110 14-142, 14"171 14-240) 14-275) 14"317) 14-393 14-544 
16-21 16-78 16-157 916-288 3=—-:16-373 37-354 

MUR 4-1894 

MwP 4-1834 

MXF 4-1034 


MXSEEK 7-0 37-454 
MXSTAL _7-OF4 14-199 14-220 
MXWNDW 34-1694 34-503 


NBA 4-2254 

NC1 9-19%  14-400* 14-492* 14-493 14-528 14-528 
NC2 9-204 

NED 4-1064 

NEM 4-1054 

NOCLOK 12-71 37-334 
NODRVS 13-10 37-394 
NONE 12-44 37-314 
NOOP 4-2734 

NOTEST 12-16 37-404 
NOTPRS 11-117 37-234 
NOTRM 11-114 37-254 
NOTSAF 11-123 37-244 
OBCK 4-1954 

OBEN 4-1944 

occ 64-1764 

OFD 4-243 

OFFSET  4=-2794 


15-30 


15-155 


15-234 


SEQ 0217 


15-319 


cZRMVBO RMOS/3/2 EXT'D DR TST 


CROSS REFERENCE 


OM 

ONE CYL 
OPE 
OPI 
OPN.1 
OPN.2 
OPN.CT 


VVVVVVVV 
> rr PPP YPyYP 
er ber) 
“3-4 Or 
NO v 

_ 


4-1284 
7-0 
4-2604 
471554 
33~>164 
33-14 


154 


' 
2 


Io 
Kosch ds dv 


Sad 


ah 
r¢ 
iow 


TABLE (CREF VO1-05 ) 


37~434 


33-726 
34-4084 


f 
N 
on 
wW 
2 


424 


Oo 
rT? 
wn 
2) 
® 


oCoooo 
t tte 
N 
zz 


oh et meh mee eh et mm ee ee ee ee ee ed ed ed od = = 


OSB 050 


15-93* 
33-657 
15-94* 
15-350* 
14-454 


33-2756 

33->244 

33-919 = 33-924 
33-737 33-7544 


33-241 33-2759M 
33-<51* 33-=53* 


33-139 
33-142 


19-1154 


K 1 
MACRO VO04.00 4-APR=-81 11:57:12 PAGE S~14 


33=>26 =33=>34 


33-257" 33-261" 33-265" 33-269" 33-5718 $3-=81 


32-200 33-702 
33->93 = 33-705 
33=>04 33=>06 33->114 


34-978 

33-245 

15-260" 15-272" 15-345" 15-357" 33-1078 

33-664 33-666 33-667 33-671 33-676 

15-106" 15-115" 15-186* 15-188* 15-205* 15-263* 
15-374 33-79 33-108* 

15-181% 15-258" 15-343* 33-105" 33-106* 


33-=83 


15-265* 


33-=93 


15-275* 


SEQ 0218 


33-=95 


15-27% 


33->03 


15-2878 


Ci.) 
CZRMVBO RMOS/3/2 EXT'D DR TST = MACRO V04.00 4-APR-81 11:57:12 PAGE S~15 


CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0219 
PLFS 4~1714# 
Cea 34 a. 34-472 34-589 = 34-891 34-926 = 34-970) 84-=70% 
PR1 4-714 
PR2 4-718 
PR3 4-718 
PRS 4-714 
PR5 4-714 
PR6 4-71# 11-36 
| PR? 4-718 14-454 = 14-454 
PRM 9-44 33-185 33-189 33-203* 33-206* 33-209* 33->38  33->48 33-773 
PRMO 9-23 9-844 33-134 
PRM1 9-26 9-934 


PRM10 9-26 9-1664 

PRM11 9-26 99-1754 é : 

PRM12 9-26 99-1854 

PRM13 9-26 99-1934 

PRM14 9-26 99-1994 

PRM15 9-26 9-2054 

PRM16 9-26 9-2114 

PRM17 9-26 99-2184 

PRM2 9-26 9-1064 

PRM20 9-26 99-2244 

PRM21 9-26 9~2404 

PRM22 9-26 99-2464 

PRM3 9-26 9-1164 

PRMG 9-26 9-1264 

PRMS 9-26 99-1364 

PRM6 9-26 9-1464 

PRM7 9-26 9-1564 

PRMLMT 9~304 14-353 14-466 16-61 16-168 16-181 33=-146% 33-147* 33-150% 33-151* 33-167 33-169 33-201 33-213 
33-829 «33-847 = 333-898 )=—_ 333-2230 = 333-309 3= 335-955 = 333-80 

PRMMSG 9-454 33->58 

PRMPT 9-234 33-153 33-184 33->36 33-774 

PS 4-71 4-714 =11-98* 13-31% 14-454 14-4654* 14-454" vo 15-116* 15-206* 15-288 15-375* 33-601* 34-213 
36-214% 36-243% 34-251" 34-345 34-346" 34-399% 34-409 34-45 

PSEL 4-814 

PSi 4-718 

PTRN15 9-237#4 

PWRVE C 4-714 

QCNT 34-<5 34 34~-<95  — -34-=19% 34 -=34 0 34-256" 34-256 39 54-=70* 

QDRVO 34-<60 34-<67 34-<7?2 34-<864 

QDRV1 34-<63  —3354-<70 = 334-<73 334 -<864 

QDRV2 34-<63 34-<70 34-<74 34-<864 


3q-=38 34-=39* 34-=40 34-242 
34-=59 —34-=72 34-5 73% 34-2748 34-275 34-=778 
34-=06 34-=42 —-34-=77 


16-348 33-;034 





CZRMVBO RMO5/3/2 EXT'D DR TST 


CROSS REFERENCE TABLE (CREF v01-05 ) 


RANCK 
RANPAT 
RD.ADR 
RD.RM 


RD.RM1 


RD .WRD 
RDCHR 
RDLIN 
RDY 
READ 
RE ADHD 
READIN 
RE CAL 
RELEAS 
RESREG 


RESVEC 


RMO5 
RMADR 


RMAS 
RMBA 
RMCS1 
RMCS2 


16-338 
16-3526 
34-;03* 


14-344 


16-355 
33-:24 


34-458 
7-0 
35-16 


34-21 
14-45 


NRO 


a 


33-:374 
33-244 
34~; 064 
34-319 
34~<07 
34-3344 
41-5 
33-<24 


16-252 
33-229 


13-44 
15-119 
33-872 
34-686 
7-0 
35-34 


14-486* 
34-576 

14-454 
33-6198 


15-184* 
15-98 


34-1814 


33-:854 
41-5 
34-537 


41-6 
33~<40 


16-332 
33-295 


14-46 


15-191 
33-906 
34-698 


37-478 
35-36 


33-257 
33-420 
41-14 
41-21 
41-25 


33-357 
33-33 
34-;60 
34-895 


15-262* 
34-587 
14-454* 
34-415* 
34-365 
33-826 


15-261* 
15-107 


33-322 
33-289 
34-810 


34-561 


33->64 


16-349 
33-335 


14-46 


15~209 
33~954 
34-:01 


41-8 


33-282 
33-422 


33-387 
33-603 
34-364 
34-9318 


15-274% 
34-604 
14-454n 


34-1764 


15-273* 
15-189 


33-324 
33-326 
34-820 


34-575 


33->91 


34-483 


15-346* 
15-266 


34-9408 


34-713 


33-216 


33-286 
33-519 
41-17 
41-22 
41-27 


15-358* 
15-278 


33-396 
33-370 
34-9418 


M1 
MACRO V04.00 4-APR-81 11:57:12 PAGE S-16 


34-767 


36-101 


15-291 
33->21 


33-289 
33-521 
41-17 
41-22 
41-27 


33-448 


34-352 
35-37 


34-1754 
68 


33-620* 
15-351 


34-841 


15-353 
33-736 


33-322 
33-826 
41-17 
41-22 
41-27 


33-609 
34-475 


34~274* 
34~827 


33-8 
34-653 


34-1874 
15-363 


33-519 
33-422 
34-943 


® 


34-851 


15-365 
33-740 


33-324 


34-496 


34-281 
34-858 
33-34" 
34-669 


34-487 
34-1784 


34-1794 
33-427 
41-4 


34-867 


15-378 
33-264 


33-326 
36-39 


41-18 
41-24 
41-28 


34-518 


34-7 
34-903 
33-36* 
34-680* 


34-500 
34-314 


34-320 
33-521 
41-4 


34-:22 


19-105 
33-790 


SEQ 0220 


34-018 34-7354 


26-14 
34-252 


33-368 
36-87 
41-18 
41-24 
41-28 


34-:20 


34-417 


5 
34- “i770 
34-839" 


34-868 


34-941 
34-942 
41-4 


28-1 
34-393 


33-370 
36-111 


34-491 


34-233 
34-939" 


34-940 


34-:69 
41-7 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 


CROSS REFERENCE 


RMR 1 34-1834 
RMMR2 34-1894 
RMOF 34-1864 


RMR 46-1448 
RMSN 34-1854 
RMTIMR = 53-121 
RMVEC 14-454" 
34-346 


RMwWC 14-476* 


ROTATE 7-0 
RPT 9-64 
15-318 
RSTART 13-5 
RSTRT1 12-72 
RTC 4-2804 
RTURN 17-1 
SAVCSW 7-O# 
SAVEFG 11-96* 
SAVREG 15-100 
53-432 
34-692 
SC 34-697 
sco 4-2304 
SC] 4-2314 
sci 34-840 
SC12 34-801 
$13 34-791 
SC2 4-234 
Sc3 34-7804 
SC4 34-7834 
$c5 34-781 
SC6 34-813 
SC6A 34-811 
SC7 34-850 
58 34-828 
SCOPE 4-714 
15~386 
SCTRWC 394-2964 
SEARCH 4-28354 
SEC.DS 7-O# 
41-23 
SEC.RD 7-O# 
SEEK 4-275 
15-274 
SEEKFG 12-34* 
SEKCNT 7-04 
SEKTMR 7-04 
SELDRV 4-292" 
SERIAL 13-50 
SET.IE 34-246 
SETBUF 14-409 
SETFOR 4-294 
SETVEC 11-944 
SHUT 23-1 
SKI 4-261# 
SLASH =. 353-88 
SP10 7-0" 


TABLE (CREF YO1-05 ) 


34-943 
34-311 


34-9864 
14-454" 


34-1744 
7-0 
14-44 


14-489 
14-454 


37-344 
34-277 
16-231 
13-42 


23-1 
33-257 


34-538 


15-92" 


7-0 
4-7 
6-7 
7-6 
3-1 


—~o 
Oo ND 


12-98 

34-591 
15-119 
33-858 
34-393 


34-9194 
34-9394 
34-9504 


34-851 


34-866 
34-853 
14-96 


34-542 34-562 
15-123" 15-182* 
7-0 37-428 
14-109 = 14-141 
16-156 16-287 


33-;65* 

34-718 ~928 

15-191 15-209 

33-882 33-945 

34-<94 

34-833 34-884 

34-876 34-8874 
34-859 34-869 

14-132 14-160 

16-260 16-363 

16-31 

33-320" 33~366* 
14-395 = 14-395 

15-347 3915-359 

34-217 = 334-442 

14-528* 

34-456 34-685 

14-46 14-319 

33-329 = 33-427 


34-566 


15-2138 


34-905 


34-904 
14-226 
16-389 


33-394* 


14-454 
16~380 


34-773 
14-395 


15=259s 
14-239 
33-62 


15=280 
33-<21 


34-917 


34-9074 
14-263 


33-418+ 


15-60 
16-380 


34-< 36" 
15-60 


N 1 
MACRO V04.00 4-APR-81 11:57:12 PAGE S-17 


15-295 
14-274 
33=->818 


15-291 
33->11 


34-937 


34-948 
14-305 


33-455* 


15-60 
16-385 


15-175 


15-344* 


14-316 
33->89 


15=353 
33~?06 


34-979 


15-254 


15-382* 
14-392 
33-703" 


15-365 
33-?72 


14-530 


33-616* 


15-175 
33-231 


15-359 


33-602" 


14-566 


33-995* 


15-185 
33-232 


16-380 


34-1634 


15-29 
33~-758* 


15-143 


41-10 


15-254 


16-385 


34-229 


15-154 


26-14 
34-408 


15-217 


41-11 


15-254 


SEQ 0221 


34-231 


15-233 


28-1 
34-640 


15-299 


41-12 


15-262 


CZRMVBO RMO5/./2 EXT'D DR TST 


CROSS REFERENCE TABLE (CREF vO1-05 » 


8B 2 
MACRC V04.00 4=-APR=81 11:57:12 PAGE S-18 


SP11 7~0# 15-298 

SP12 7~O# 15-385 

SP7A 7-0" 15~82 15-138 

SP7A1 7-08 15-76 

SP7B 7-0" 15-73 15-142 

SP7B1 7~Q" 15-68 

SPTYP) 15-138 = 15-141 15-215 15-297 15-384 333-689" 

SRCHOU 15-37 15-162 3915-241 15-326 33-6004 

SRCHWT 34-878 = 34-410" 34-575" 34-923 = 34-932" 

SRTDRV 11-102 12-34 

SRTINT 11-83 11-864 

SRVCLK 33-105 33-115 33-1208 

ST.CLK 11-9« 15-122 15-212 = 15-294 = 15-381 17-5 33-7e" 

ST.LCL 33-87 33-1124 

ST.PCL 33-81 33-1024 

STACK 4-714 11-33 14-70 14-93 14-119 = 14-1260 14-151 14-154 1462185 = 14-296 = 14-250 = 14-286 = 14-326 = 14-340 
14-342 14-454 14-455 14-556 =: 15-88 15-176 15255 15-340 16-27 16-34 16-38 16-40 16-47 16~53 
16-84 16-92 16-102 16-120 16-126 = 16-220 16-234 = 16-242 = 16-251 = 16-303 = 16-319 = 16-328 = 16-334 = 16-345 
16-351 16-361 = 16-378 = 17-3 

STALL 14-190 16-196) 14-211 14-217 16-382) 16-387 «= 333-302 = 33-342 = 33-437 0 335-5438 

STALLO 7-O# 14-1842 14-191 14-197 14-198 14-199 14=201® 14-212 = 14-218 = 14-219" 14-220 = 14-22 2* 

STALLT 7-O# 33-303 33-343 

STALL2 7-O# 33-438 

STALL3) 7-O# 16-383 16-388 

START 11-20 11-284 

START? = 5~1 11-11 11-184 

START2 5-3 11-254 12-48 13-11 23-5 


START3 5-5 11-154 
STARTS 5-7 11-224 


STO02 34-:29 = 354-231 34-333 354-:50M 


STO9 34-:27 34-37 34-:468 342:57 34-:62 36=:64 34-:67 34:76 34-:82  34~-:868 


STRTMR 15-90 15~180 15-257 15-342 33-6324 

SVADR 7-04 16-321 16-322* 16-340 16-341 16-357 16-358 

SVRH70 14-454 14-508 15-100 15-109 19-119 15-191 158-209 15-268 15-280 15-291 15-353 15-365 
34-720 4634-736 «=. 334-800 39 34-855 34-874 34-930 34-966 «= 34-140) 39— 34-285 0 4-938 

oun 7-04 19-47 33-497 


SwOO 4-71 4-714 16-247 

Sw01 4-71 4-714 16-254 33-931 33-:05 33-:68 
SwO2 4-71 4-714 16-249 

SwO3 4-71] 4-714 16-229 16-240 


15-378 34-592 


33-690 33-730 
Sw08 4-71 4-714 


CZRMVBO RMO5/3/2 EXT'D DR TST 


C 2 
MACRO V04.00 4-APR~81 11:57:12 PAGE S-19 


CROSS REFERENCE TABLE (CREF vOQ1-05 ) 


Sw09 
Sw 
SWw10 
Sw] 
Swi2 


 §w13 


Swi4 
Swi5 
Swe 
Sw3 
Sw 
Sw5 
SwW6 
Si7 


4-71 
4-718 
4~714 
4~718 
4-714 
15-234 
4-718 
4~714 
4-714 
4~718 
4-714 
4-718 
4-714 
4-714 
4-714 
4~714 
4-714 
6-04 
14-317 
76-249 
24-1 
33-935 
5-14 
7-04 
7-08 
7-04 


4-714 


33-635 


33-929 


14-80 
16-21 


33~340 


16-264 
16-834 


16-318 
16-3774 
14-1824 


14-3254 


33-:64 


14-171 14-182 914-2460 = 14-275 
16-288 16-373 


33e 11-37" = 11-384 

155 15-236 15#319 16 

-1 18-1 18-1 18- 
1 24-18 = Qhnle = 33 
i 23-1 


14-528 


16-3184 


33-120 


33-639" 33-656 
33-676" 33-677* 


142317 


14-393 


14-142 
16-227 
23-1 

33-690 


14-544 


15-30 


14-240 
16-240 
23-1* 

33-929 


SEQ 0223 


15-155 


14-275 
16-247 
24-1 

33-931 


Dz 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE S=20 
CROSS REFERENCE TABLE (CREF VO01-05 ) SEQ 0224 


TIM.UP _7-O# —-33-633 33-638 33-653 33-736 

TE. ee eeceen re ee WG=661* 34-707 34-B36* 34-BB2* 34-934" 34-951" 349975* 34-992 — 34-99G* 34-263" 
=: * S4Q-: t 

TKVEC 4~714 23-18 23-1% 


TPSO 15-67" 15=72* 15-1404 

TP60 15-75" 15-80" 15-1384 

TPB 7~O# 11-45 18-1 

TPS 7-0" 11-44 18-1 

TPSSO §=. 15-68" = =15-73* = 15-1424 

TPS60 =. 15=76* =15-82* =: 15-1384 

TPVEC 4-714 

TRAPVE 4-71# 11-33" = 11-33* 

rece eA 16-32 16-55 16-296 33-148 33-152* 
TR = 

TRK.DS 7-O# 33-250% 33-280% 33-320% 33-366* 33-394% 33-418" 33-455" 33-5772 33-6162 33-921" 33-99%" 41-10 4t-11 


41-12 41-15 41-23 41-26 
TRK.RD 7-O# 33-574e 41-11 
Penedl pai 34-794 34-473% 34-631 34-636" 34-647 34-667" 34-678 34-709 39 3547108 «3h 36 Sm bbe 
Vi ~7 18 
TSTO 14-468 
TST1 14-44 14-7984 
TST10 }§=©14~316 §=—- 14-3924 
iSTIOA 14-454 14-4544 


TSTNMS —7-O# 12-12 12-14 12-69 14-44 14-79 14-109 14-141 14-170) 14-239) 14-274 3=— 14-316 = 14-392 14-543 
15-29 15-154 15-233 915-318 = 16-20 16-77 16-156 16-287 16-372 33-131" 33-1322 33-<32* 33-<33* 33-<48* 
33—<49e  33-<55" 33-<59" 33-<63* 33-<67" 33-<71" 33-<96* 33~=30" 9 35-=41 = 35-=43 


TYPE 11-6 11-38 11-59 11-65 11-70 11-76 11-77 11-104 11-105) 11-107) 11-1960 19-117) 11-120: 11-123 
11-130 9-11-1732) 11-133) 11-1440 11-150 ))12-16 12-39 12-44 12-45 12-61 12-65 12-71 13-10 13-46 
13-47 13-49 13-50 13-65 13-68 14-45 14-80 14-110 14-142) -14-171) 14-240) 14-275 14-317 14-393 
14-544 15-30 15-155 15-234 = 15-319) 16-21 16-78 16-157 16-288 16-373 17-1 17-1 17-1 17-1 
17-1 18-1 18-1 19-42 19-43 19-52 19-58 19-59 19-63 19-66 19-69 19-70 19-79 19-89 
19-93 19-96 19-98 19-100 19-103 20-1 21-1 22-1 23-1 23-1 23-1 23-1 23-1 23-1 
23-1 23-1 23-1 23-1 ~1 23-1 23-1 -1 23-1 23-1 23-1 23-1 26-14 F-1 
33-15 33-16 33-18 33-19 33-20 33-692 33-693 33-695 33-699 33-702 33-703 33-707 33-708 33-737 
33-741 33-763 33-746 «= 33-748 «= 33-750 3933-751 = 33-753 «33-756 «= 33-758 «= 33-760 = 33-761 = 33-770) = 33-771 = 33-775 
33-777 33-783 «33-759 «= -33-:85 = 33-788 «= 338-<23—33-< 39) 33->33)—-53->35 —53->57 9 33->59 33-67 «33-263 55->86 
33->87 = 333->88 = 333-590) 33-712 «= 333-714 


TYPERR 18-1 19-114 
TYPOC §=6: 11-8 17-1 19-84 23-1 26-14 33-;87 33->89 33-715 


ne ee ee a TE me re 
es 
RE NS LANE 


E 2 
ZZRMVBO RMO5/3/2 EXT'D DR TST MACRO V046.00 4-APR=81 11:57:12 PAGE 5~c1 
CROSS REFERENCE TABLE (CREF Vv01-05 ) 


TYPON 26-18 

TYPOS 11=62 11-73 11-106 12-58 13-48 14-45 14-80 14-110 
14-544 15-30 15-155 15-234 15-319 16-21 16-78 16-157 

TYPTIM 15-138 15-139 15-214 15-296 15-383 33-7288 ; 

ULDFLG 34-1064 34-272" 34-355 Be=370% 34-553 34-629" 34-668* $4797 

UNLOAD 44-2744 

UNS 4-1564 

UNSTAT 11-104 37-208 

UNTOF® 11-120 37-218 

UNTON 11-132 37-228 

UPE 4-1074 

uS1 4-944 

US2 4-954 

US4 4-968 

VERIFY 33-297 33-337 §©33-5664 

VV 4-1294 

wC 4~1664 

wCE 4-1084 

WCEFLG 7-08 16-220* 16-245 33-356" 335-416" 

wCF 4-1478 

WCHIKX 34-721 34-741 

wD 44-1644 

WLE 4~15 34 


WRCKD 4-2844 16-37 16-54 10-106 916-127 16-243 16-342 = 16=359 
WRITE 46-2864 14-396 16-35 16-48 16-86 16-121 «16-235 =: 16= 298 


WRT.AD 34-:50* 34-:60* 34-:634 41-6 
WRT.R1 34-:614 34-81 


O# 
WRT.R3 34-756 934-367 354-370 934-376 34-5 82e 
WRT.RM 34-306 34-310 39. 34-482 34-486 34-490 )§=— 34-499 34-508 = 54-512 
34-603 34-626 34-826 34-857 34-902 34-5478 
WRT.WD 34-48% 34-352 34-359" 34-362" 41-6 
xXDP 7-04 11-50* 11-538 11-54 11-56" = 11-61 11-72 11-126 


14-162 
16-288 


34-892 


33-379 
16-323 


34-526 


11-128 


SEQ 0225 
142317 = 14=393 
33-17 35->34 
34~-:4658 


34-565 34-586 


F 2 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 4=APR=81 11:57:12 PAGE M=1 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


SSCMRE 9 =—5-219% 6-0 6-0 6-0 6-0 6-0 6-0 

SSCMTIM = 5=2198% 4-0 6-0 6-0 

SSESCA 4-718 

SSNEWT 4-718 = 14-44 14=79 14-109 = 14=141 14-170 = 14=239 
15~318 16-20 16-77 16-156 16-287 16-372 

S$SET = 26~1 26-1 26-1 26-1 26-1 26-1 26-1 

SSSETM 11~33 11-334 

S$SKIP = 4~718 

.SACT1 3«64=324 5-9 

-SAPTB 4-334 6-0 6-04 

-SAPTH 4-338 5-12 

-SAPTY «4-334 = 32-1 

-SCATC «4-304 5~1 

-SCMTA 94-304 5-219 

-$DB2D 4-324 28-1 

-S01V 4-318 31-1 

- $EOP 4-308 17~1 

SERRO 4-304 18-1 


TSWRLO 4-384" = 4-39 4-40 6-41 4~42 4-43 4~44 
CKCHR = 10-4098 = 33-:91  33-<26 «= 333->66 33-293 333-718 = 333-a79 


CKNUM = 10-429 =33-:95 33-202 33-720 


COMND §=610-3468 9813-44 14-46 14-319 14-395 15-60 15+175 

DO 10-3554 13-43 13-45 14-70 14-70 14-94 14-95 
14-214 14-252 14-254 = 14-292 14-294 = 14-296 = 14-298 
15-175 9-15-2546 =—-:15- 339 «16-381 = -«16=386 =. 33-583 

DODTA 10-370 16-36 16-39 16-43 16-52 16-58 16-95 
16-329 16-335) = 16-346 )=—- 16-352 = 16-362 


ENDPAS 16-3914 17-1 
ER.NDX 10-374# 33-250 33-280 33-320 33-366 33-394 33-418 
ERRCAL 33-AG9M 34-772 «34-830 §=—- 34-832 54-518 39 34-577 


£RROR 4-718 = 13-25 14-454 14-528 15-101 15-110 15-12 
15-379 = 24-1 33-250 33-250 33-250 33-250 33-25 
33-320 = 33-320 §=- 333-328 )3=— 333-366 §= 335-366 = 333-366 = 33-36 
33-418 = 33-418 = 33-418 = 33-426 §=— 33-455 35-455 5545 
33-923 33-928 )§=— 23-998 §=— 33-:04 «= 33-262 «= 53-363 = 35-43 


14-392 
26-1 


33-A36 


16-380 
14-152 
14-341 


16-128 


15-269 
33-280 
33-394 
33-616 


14-543 
26-1 


16-385 
14-156 
14-36! 


16-239 


1529 
26-14 


14-187 
14-557 


16-244 


15-154 


14-193 
14-558 


16-255 


StQ 0226 


15-233 


14-208 
15-60 


16-304 


2 


MACRO V04.00 4-APR-81 11:57:12 PAGE Mee 


CROSS REFERENCE TABLE (CREF vQ1~05 ) 


G 


SEQ 0227 


ZRMVBO RMOS/3/2 EXT'D DR TST 


r 
Y 
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J i] 
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- Oo 
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4 t 
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EXIT 


14-392 14-543 15-29 15-154 = 15=233 


14-316 


14°276 
15-318 
15-233 


14-2654 
15-3014 
15-154 


14-239 
15-29 


14-2284 
15-219 15-233 


14-543 
33-728 


14-392 
33-784 
33-180 


14-316 
33-216 
33-130 


4-714 


SETPRI 
SETTRA 26-1 


26-1 26-1 26-1 26-1 26-1 26-1 26-1 26-1 26-1 26-14 


26-1 





15-2% 
55-«23 


15-155 
33-355 


14-316 
22-1 


14-44 
15-30 


19=66 


32-1 


8-245 
14-274 
15-318 
21-1 
31-1 
14-544 
33-713 
19-52 


14-393 
33->62 


17=1 


14-317 
33-772 


17-1 


14-275 
33-769 


14-240 
33-759 


86 
1 


11-38 


9- 


11-33 
17- 


14-45 
16-21 


1 


4-714 
4-714 
4-714 
4-148 
15-319 
4-714 
4-714 
16-396" 
4-714 
4-718 


10-2884 33-742 
4-714 


TRMTRP 26-14 


STARS 

TSTTYP 
TYPB2D 
TYPBIN 
TYPDEC 
TYPEND 
TYPNUM 
TYPOCS 


SKIP 
SLASH 
SWRSU 
TYPNAM 


SETUP 


